der folgende makrotext soll mir ein neues Blatt einfügen und zwar immer gleich ans Ende.
Es kommt aber jedes mal eine Fehlermeldung und das neue Blatt ist nicht am Ende eingefügt.
Was ist hier noch falsch?
Danke + Gruss.
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Name = "Rg #" & Sheets.Count.Sh.Move after:=Worksheets(Worksheets.Count)
End Sub