Find, If found do X, If not found Next

[carpjm1]

Hi All. I have this operation that looks for specific text on a sheet. Sometimes this text is not present but the operation still carries out even though it is not there. How do i IF this to move on if not found? Thank you in advance!

Sheets("36Data").Select
    On Error Resume Next
    Selection.Find(What:="RF #", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Select
    ActiveCell.Offset(1, 1).Select
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
    Selection.Copy

 

[JoeMo]

Maybe something like this:

Dim R As Range
Sheets("36Data").Select
Set R = Selection.Find(What:="RF #", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False)
If Not R Is Nothing Then
    Range(R.Offset(1, 1), R.Offset(1, 1).End(xlDown)).Copy
    'do something w/the copy
Else
    'move on
End If