Innerhalb einer Excel Arbeitsmappen kann man die einzelnen Tabellen fortlaufend nummerieren lassen.
Das Makro dafür lautet:
Sub Nummerierung()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Name = "CW" & i '+ 1
Next
End Sub
Innerhalb des Codes ist CW durch den von euch gewünschten Namen zu ersetzen.