Hello All, Im at a bit of a mental block. i have a macro that will go through a word file and delete a Row that conatins the string **DELETE** However running this macro will only execute once, and delete the first matching string. I want to run the macro code through a loop so it will continue to delete all the rows with that text string until it reaches the end of the file.

Something similiar to :
Do
{my macro code here}
Loop Until EOF

But i cant seem to get it right. Here is my code for the macro

Selection.Find.ClearFormatting
With Selection.Find
.Text = "*DELETE"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Rows.Delete
Set Object = Collection.Next

THANKS FOR THE HELP!