Do loop erroring

[jacksmack]

I am a novice at writing macros and need what I hope is some easy to obtain advice. I am trying to create a maco that will search for some text and when it finds it will then delete the row where the text appears and then continue searching for the same text. I have a simple do loop that works, but I don't know how to make it stop when it doesn't find the text. It errors when it can't find the text.

Here is the code:

Do
Cells.Find(What:="Jackson Fish", LookAt:=xlWhole).Activate
Range(Selection, Selection.EntireRow).Select
Selection.Delete Shift:=xlUp
Loop

Thanks in advance

 

[SkipVought]

Hi,

    Dim rFound As Range
    Do
        Set rFound = Cells.Find(What:="Jackson Fish", LookAt:=xlWhole)
        If Not rFound Is Nothing Then
            Range(Selection, Selection.EntireRow).Delete Shift:=xlUp
        Else
            Exit Do
        End If
    Loop

Skip,

_[red][/red]

 

[jacksmack]

Much thanks for the quick reply.