Hente ark navne ind i et ark

Sorry, så svaret her:
http://www.eksperten.dk/spm/779941
lukket igen

Læg denne makro og afspil den. Kolonne A i det frøste ark bør være tom, ellers sesttes indholdet for at gøre plads for oversigten.

Sub ListArk()
    Dim i As Long, so As Object
    Sheets(1).Range("A:A").ClearContents
    i = 0
    For Each so In Sheets
        i = i + 1
        Sheets(1).Cells(i, 1).Value = so.Name
    Next
End Sub

Du kan også bruger denne:

Sub ListArk()
    Dim s As Worksheet
    Dim n As Integer

    On Error GoTo Sheeterr

    Sheets("Liste_over_ark").Select
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True

Sheeterr:
    n = 2
    With Worksheets.Add
        .Name = "Liste_over_ark"
        .Move Before:=Worksheets(1)
    End With

    For Each s In ActiveWorkbook.Sheets
        If s.Name <> "Liste_over_ark" Then
            Sheets("Liste_over_ark").Range("a" & n) = s.Name
            n = n + 1
        End If
    Next s

    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Range("a1").Select

    For Each c In Range("a:a").Cells
        If Not IsEmpty(c.Value) Then
            c.Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            c.Value & "!A1", TextToDisplay:=c.Value
        End If
    Next

End Sub

Den indsætter selv et tomt ark forrest, og skriver navnene i den. Samtidigt opretter den hyperlink til alel ark. Det betyder, at der ikke må være diagramark i mappen, da man ikke kan lave hyperlink til et diagramark.