Hallo,
wenn du nur diese 13 Tabellenblätter (Zusammenfassung + die 12 anderen Blätter) in der Mappe hast und sonst keine weiteren Blätter.
Sub Schaltfläche1_Klicken()
Dim i As Long, ws As Worksheet
i = 2
With Worksheets("Zusammenfassung")
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Zusammenfassung" Then
ws.Name = .Cells(i, "F")
i = i + 2
End If
Next ws
End With
End Sub
Gruß Werner
|