Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim wks As Worksheet
If Target.Address(0, 0) = "A1" Then
Application.EnableEvents = False
Target.Offset(0, 2).Value = "Not found"
For Each wks In ThisWorkbook.Sheets
If wks.Name <> Target.Parent.Name Then
Set rng = wks.UsedRange.Find(Target.Value, , , xlWhole)
If Not rng Is Nothing Then
Target.Offset(0, 2).Value = "'" & wks.Name & "'!" & rng.Address
'\\ Resetting to normal Find routine to remove tick from Match Entire Cell Contents
Set rng = wks.UsedRange.Find(Target.Value, , , xlPart)
Exit For
End If
End If
Next wks
Application.EnableEvents = True
End If
End Sub