Der unten aufgeführte, stark verkürzte Quellcode liefert mir aus für mich unverständliche Weise einen Laufzeitfehler 5 in der Zeile, welche mit "Set" beginnt.
Woran liegt das Eurer Meinung nach und was mache ich falsch ?
Wenn ich "On Error Resume Next" vorne an setze klappt es ohne Laufzeitfehler.
Wer kann mir helfen ??
Vielen Dank im Voraus
Gruß Lars
Private Sub Workbook_Open()
Dim CB As CommandBar
Set CB = Application.CommandBars.Add("Sonderzeichen") CB.Delete
CB.Visible = True
End Sub