Gruppe
VBE
Problem
Wenn ich das jeweils letzte Blatt einer Arbeitsmappe 50 mal kopiere, wird im VBE-Projektexplorer dem Namen des Klassenmoduls des jeweils kopierten Blattes immer eine 1 hinzugefügt, bis das Programm abbricht. Wie kann ich das ändern.
StandardModule: Modul1
Sub cmdButton_Click()
Dim iCounter As Integer, iCount As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 50
iCount = Worksheets.Count
Worksheets(iCount).Visible = True
Worksheets(iCount).Copy after:=Worksheets(iCount)
ActiveSheet.Name = "Blatt" & iCounter
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
.Properties("_CodeName").Value = ActiveSheet.Name
End With
Next iCounter
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub