Hallo
kann mir bitte jemand den Code anpassen, die Blattnamen
sollen in Zellbereich F15:F29
Sub Blattliste2()
Application.ScreenUpdating = False
Dim i As Integer
Sheets("Deckblatt").Select
ActiveSheet.Range("F15:F29").ClearContents
For i = 1 To Worksheets.Count
If Worksheets(i).Name ActiveSheet.Name Then
ActiveSheet.Cells(i, 1) = Worksheets(i).Name
End If
Next i
Danke
gruss helena