Aktive Zelle färbt sich nach Einfügen eines Makro automatisch schwarz

[bhollerith]

Wie meinst Du?

'Blatt Führungen erstellen
Sub Führungen_erstellen()
Sheets("Führungen Neu").Select
Sheets("Führungen Neu").Copy after:=Sheets(3)
Sheets("Führungen Neu (2)").Select
Blattname = InputBox("Welchen Namen soll das neue Blatt haben?" & Chr$(10) & Chr$(10) & "(Name und Jahr)" & Chr$(10) & Chr$(10) & "z.B.: Führungen 2024" & Chr$(10) & Chr$(10) & "(Bitte den Namen wie im Beispiel angegeben),"Hospitationen")
ActiveSheet.Name = Blattname
End Sub

So bekomme ich eine Fehlermeldung