I have created a macro to remove several lines of text that are found 80 plus times in a multi-page document. I need the macro to loop and then stop at the end of the document (or when the text is no longer found). I've spent hours reading about loops and trying hints found on the web, but can't make it work, so I'd appreciate it if someone could help. The code is pasted below. I need to use this macro as a template to create additional macros to remove other bits of text, so I'd appreciate it being simple and easily replicable.

Many thanks,
Eleanor


Sub GMLoadremove()
'
' GMLoadremove Macro
'
'
With Selection.Find
.Text = "LOAD-DATE"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchByte = False
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=8, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub