Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "B1"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
'do your stuff
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Ybor Tony" <Ybor wrote in message
...
I need to continuosly monitor whenever the value of cell b1 equals or does
not equal the value of cell c1 and when it's not equal then run a macro.
i
have found several answers here to similar questions but the code runs
only
one time and will not activate again if the value changes back to equal
and
then not equal again.

Thanks,
Ybor Tony