VBA - AddComment Laufzeitfehler 1004

[fl0wing]

Hallo,

ich habe folgenden Code:

Code:

Sub farbe_braun()
   'ActiveSheet.Unprotect
   GrundDR = Application.InputBox("Kommentar zur Abwesenheit:")
    
    With Selection.Interior
    
        .ColorIndex = 53
        Selection.Value = "D"
        Selection.ClearComments
        Selection.AddComment
        Selection.Comment.Visible = False
        Selection.Comment.Text Text:=GrundDR
         
         
             
       
    End With
'ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True
End Sub

Wenn ich jedoch beim der InputBox auf Abbrechen klicke, kommt der Laufzeitfehler 1004. Wie kann ich diesen umgehen? Am besten, dass beim Abbrechen nichts erstellt wird.

Vielen Dank im Voraus!