en formel som kan opstille arknavne i en kollonne ?

Øjeblik

Denne macro virker:

    a = Sheets.Count
    For I = 1 To a
    Sheets(I).Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = Sheets(I).Name
    Next I

Men den skriver dem i celle A1 hele tiden. Jeg skal lige finde funktionen for konvertering af tal til tekst i linie 4  ..... øjeblik

Her er den så:

Sub Macro2()
    a = Sheets.Count
    For I = 1 To a
      B = "A" + Right(Str(I), 1)
      Range(B).Select
      ActiveCell.FormulaR1C1 = Sheets(I).Name
    Next I
End Sub

Jeg giver lige et svar, da jeg har testet funktionen.

Den skal gerne starte med at opstille arknavnene i felt A6 og så a7 og så videre, kan du få den til det ???

Hvad er formålet?

Hilsen
KOL

at lave en funktion skal kan opstille underark navne i kolonne A og den skal starte i celle A6

Ja, så ser den således ud:

Sub Macro2()
    a = Sheets.Count
    For I = 6 To a+6
      B = "A" + Right(Str(I), 1)
      Range(B).Select
      ActiveCell.FormulaR1C1 = Sheets(I).Name
    Next I
End Sub

Ved du hvordan du indsætter denne macro ?

ja men når jeg afspiller den, så starter den med at opstille arknavnene fra a1 og ikke fra a6.

Hvad kan jeg gøre forkert ??

Sub Macro2()
    a = Sheets.Count
    For I =1 To a
    Range("A" &i+5)= Sheets(I).Name
    Next I
End Sub

her bliver de til hyperlink

Sub Macro2()
    a = Sheets.Count
      X = 6
    For I = 1 To a
  ' ret Ark1 til den side hvor du skal have dataerne på
    If Sheets(I).Name <> "Ark1" Then
  Sheets("Ark1").Hyperlinks.Add Anchor:=Range("A" & X), Address:="", SubAddress:= _
        Sheets(I).Name & "!A1", TextToDisplay:=Sheets(I).Name
        X = X + 1
        End If
    Next I
End Sub