Use the Target variable supplied .. eg.

'--------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value = 1 Then
MsgBox ("Error")
End If
End Sub
'----------------------------------------

--
Message posted from http://www.ExcelForum.com