Hi cksm4,

Your code suggests you might be trying to hide the whole of the paragraph containing the string "DO NOT PUBLISH ACTIVITY". Is that correct? If it is, there's a much simpler way - a wildcard Find/Replace, where:
Find = [!^13]{1,}DO NOT PUBLISH ACTIVITY[!^13]{1,}[^13]
or, in vba parlance:
.Text = "[!^13]{1,}DO NOT PUBLISH ACTIVITY[!^13]{1,}[^13]"
.MatchWildcards = True

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]