Hi cksm4,
Assuming you're appending rows, try the following:
Code:
Sub Test()
With ActiveDocument.Range
With .Find
.ClearFormatting
.Text = "DO NOT PUBLISH ACTIVITY"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
Do While .Find.Found
MsgBox .Text
.MoveStart Unit:=wdRow, Count:=-1
.MoveEnd Unit:=wdRow, Count:=3
.Font.Hidden = True
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub
I've kept the -1 and +3 moves you originally had, but they might need adjustment to target the correct ranges.