Hente en liste over alle arknavne

Her er en funktion som du kan bruge i regnearket:
Public Function ArkNavn(ArkNummer As Integer) As String
'Angiv arknummer og få arknavn retur
    ArkNavn = Worksheets(ArkNummer).Name
End Function

Det indsættes i et modul.

Så kan du i regnearket bruge formlen =ArkNavn(x) hvor x er tallet for arket.

Sub ArkNavn()
For Each sh In ThisWorkbook.Sheets
Cells(Cells(65500, 1).End(xlUp).Row + 1, 1) = sh.Name
Next
End Sub

excelent -> Det spillede bare. Smid et svar, så får du point

ok