Automatisk navngivning af ark i excel

Ja - via lidt VBA-kode kan det lade sig gøre.

Er de 10 ark oprettet i forvejen?
Hvor er navnene anført (start celle)?

Her er et udkast: - Anbringes i ThisWorkbook i VBA (Alt+F11)

Const NavneRæk = 3                          'Startrække f/navnnei Kolonne A
Dim arkNr
Sub Workbook_Activate()
    With ActiveWorkbook.Sheets(1)
       
        arkNr = 1                          'begynd med Arknr (1)
        For ræk = NavneRæk To NavneRæk + 9
            arknavn = .Cells(ræk, 1)
            ActiveWorkbook.Sheets(arkNr).Name = arknavn
            arkNr = arkNr + 1
        Next ræk
    End With
End Sub

Hej supertekst,

De 10 ark er ikke oprette i forvejen, men det kan de blive.

startcelle er A3

Mvh.

Mfynbo

Har du prøvet koden?

hvordan accepterer jeg?

Du får et svar, som du så acceptere.

Her var svaret så...

Hvordan ser koden ud hvis den står i kolonne B, med start i B1?

Const NavneRæk = 1
Dim arkNr
Sub Workbook_Activate()
    With ActiveWorkbook.Sheets(1)
       
        arkNr = 1                          'begynd med Arknr (1)
        For ræk = NavneRæk To NavneRæk + 9
            arknavn = .Cells(ræk, 2)
            ActiveWorkbook.Sheets(arkNr).Name = arknavn
            arkNr = arkNr + 1
        Next ræk
    End With
End Sub

Jeg kunne rigtigt godt tænke mig at få dette script til at virke, men er ret meget Newbie på dette. Jeg trykker Alt F11, kommer ind i et vindue, tilføjer et nyt "module" for at kunne kopiere teksten over, og trykker F5. Så kommer der en "runtime error 1004" og scriptet går i stå. Det er muligvis noget med at ting har ændret sig siden 2007, men jeg ved ikke hvad. Jeg bruger Excel 2016.
Er der nogen der kan hjælpe ?