בעיה במשפט IF בVBA EXCEL

The shadow

להלן הקוד:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 4 And Target.Cells.Count = 1 And Target.Offset(, -1).Value = 0 Then

    C = Target.Offset(, -1).Address
    UserForm1.Show
    
End If

End Sub

אם אני בוחר תא שהתנאי לזה הוא שלילי קופץ לי הודעה כזאת:

למה?

The shadow

והתשובה הגיע מפה
https://stackoverflow.com/questions/61296910/vba-excel-worksheet-selectionchange-returns-an-error-if-the-condition-is-false