Sub neues_Blatt()
Dim s As Integer, n As String
Sheets("Muster").Select
Worksheets("Muster").Copy After:=Worksheets("Muster")
ActiveSheet.Name = "Copy"
s = Worksheets.Count
n = ? (Name.ActiveSheet) 'geht nicht :-(
Debug.Print s;n
End Sub
Danke und Gruß micha