SPOT THE MISTAKE!....
Dim myFoundAddress As String
For i = 2 To x
On Error Resume Next
myFoundAddress =
Sheets("Static").Range("MG_Tournaments").Find _
(What:=Sheets("Input").Cells(i, 7), LookIn:=xlValues,
LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=True, _
SearchFormat:=False).Address
If myFoundAddress < "" Then
Sheets("Static").Cells(i, 8) = "True"
'<---- add the sheets object
Else
Sheets("Static").Cells(i, 8) = "False"
'<---- here too
End If
Next
On Error GoTo 0
|