Etwas verwirrend finde Ich das jetzt schon.
Du wolltest eine Nummer in C13 haben und diese um 1 erhöhen.
Jetzt sehe Ich im Code, dass Du den Arbeitsblattnamen dadurch umbenannt haben willst.
Mir erschließt sich nicht ganz, wozu die Zelle C13 benötigt wird.
Aber sollte Dein Ziel einzig sein, die Arbeitsblätter durchzunummerieren, dann könntest das wie folgt machen:
For Each rs In Sheets
rs.Name = rs.Index
Next rs
Und nochmal in Schön:
Sub RenameSheet()
Dim wks As Excel.Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Name = wks.Index
Next rs
End Sub
|