This procedure looks for Sheet1 cell A1 - change as required.
Sub Find_Cell()
Dim findCell As Range
Dim found As Range
Set findCell = Worksheets("Sheet1").Range("A1")
With Worksheets("Sheet3")
Set found = .Cells.Find(What:=findCell.Value, After:=.Range("A1"), LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
End With
If found Is Nothing Then
With findCell.Interior
.ColorIndex = 3 'red
.Pattern = xlSolid
End With
End If
End Sub
Bookmarks