Macro to find header information and replace with specific text

I am trying to write a macro for excel to find header information with several possible header options and replace with specific text I choose. My current code will find and replace the header but the result is not what i specified. For instance if one of the choices to find and replace is "Site number" and I want to replace it with "Site*" the result is "Site* number". I know the error is due to multiple selection in the loop, but I do not know how to fix it.

Here is my current code:

Please Login or Register  to view this content.