In sheet 1Right click sheet tabview codeinsert this
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b2:d1000")) Is Nothing Then
If Sheets("sheet2").Columns("b:d") _
.Find(Target) Is Nothing Then MsgBox "Not there"
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"K" wrote in message
...
Hi , i want the macro that if i put any value in any cell of coloumns
A , B and C in sheet 1 then it lookup that value in coloumns A , B and
C of sheet 2 and if value is different then message should come up
that value not found. is there any way to make this kind of macro.