For i = myP To 1 Step -1
Set myRng = Selection.GoTo( _
what:=wdGoToPage, which:=wdGoToAbsolute, Count:=i)
Set myRng = myRng.Bookmarks("\page").Range
With myRng.Find
.Text = myStr
.Wrap = wdFindStop
If .Execute Then
myRng.Bookmarks("\page").Range.Delete
End If
End With
Next