VBA Excel - Bladnamn i grafvärde

Kunde inte komma på bättre rubrik.
Håller på att skapa ett macro som bland annat ska skapa grafer på värden den hämtar från Sheet1 (som har namnet 14-17-09).
Problemet är att filen är en CSV-fil och när man öppnar CSVfiler så får första bladet samma namn som filnamnet, och jag behöver kunna benämna det som sheet(1) i koden men jag lyckas inte.

Koden är i teststadie därför har jag gett LastRow värdet manuellt.
Nedan har ja

Sub Macro1()

    wkbName = Application.Workbooks(1).Name ' 14-17-09.CSV
    shtName = Left(wkbName, InStr(wkbName, ".") - 1) '14-17-09
    LastRow = 1281
    
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=""velH"""
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!$G$3:$G$" & LastRow
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "=""velD"""
    ActiveChart.SeriesCollection(2).Values = "=Sheet1!$I$3:$I$" & LastRow
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(3).Name = "=""hMSL"""
    ActiveChart.SeriesCollection(3).Values = "=Sheet1!$D$3:$D$" & LastRow
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(3).AxisGroup = 2
    
    End Sub

Detta gör att koden vill leta i bladet som heter Sheet1 (som namn alltså), jag vill åt Sheet(1)

Har även testat
ActiveChart.SeriesCollection(1).Values = "=shtName!$G$3:$G$" & LastRow
ActiveChart.SeriesCollection(1).Values = "=" & shtName & "!$G$3:$G$" & LastRow
ActiveChart.SeriesCollection(1).Values = "=Sheet(1)!$G$3:$G$" & LastRow
ActiveChart.SeriesCollection(1).Values = "=" & Sheet(1) & "!$G$3:$G$" & LastRow
Men ingen av dessa fungerar.

Några tips?

Har lagt upp filen om någon behöver kunna exprimentera med den.

http://www.hellis.me/14-17-09.xlsm

Har sparat den som xlsm för att få med macrokoden