Assign the result
to a Range and use the .Find()
to set the range.
If nothing is found, then the Range()
would be Nothing
:
Sub TestMe()
Dim result As Range
With Worksheets(1)
Set result = .Range("2:2").Find("Something", LookAt:=xlWhole)
End With
If Not result Is Nothing Then
Debug.Print result.Address
Else
Debug.Print "Something is not on the second row!"
End If
End Sub
The LookAt:=xlWhole
argument is a must, if one is working with dates: