Falsche bennenung der Kopierten blätter
15.09.2004 07:25:50
Matthias
er soll wie folgt Nummerieren Page_2,Page_3 usw.
aber er beginnt bei Page_11 woran liegt das?
Bitte um Hilfe und bedanke mich schon mal im Voraus
Sub cmd_Blätter_einfügen()
Dim iCounter As Integer
Dim iCount As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 5
iCount = Worksheets.Count
Worksheets(iCount).Visible = True
Worksheets(iCount).Copy after:=Worksheets(iCount)
ActiveSheet.Name = "Page_1" & iCounter
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
.Properties("_CodeName").Value = ActiveSheet.Name
End With
Next iCounter
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub