Try this before you run the Selection.Find:

ActiveWindow.View.ShowHiddenText = True

BTW, I tried your code as-is and it merely failed; it didn't remove un-hidden text.