Worksheet_Change errors

[tima_amit]

Please HELP!!
There is the code:

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Column = 4 Then
    If Target.Cells.Offset(Row, -2) = "" Then
        MsgBox "First you need to enter second collumn value", vbOKOnly, "error!"
        Target.Cells.Clear
    End If
    
        If Not Target.Cells.Offset(Row, -1) = Number Then
        MsgBox "you cant enter value, because your have entered value to third column", vbOKOnly, "error!"
     Target.Cells.Clear
    End If
End If
End Sub

there is a code, that shows a problem - messages are showed a lot of times...
Cant understand why?
Please help... Urgent!!!
Thank you in advance