I have been trying to add code to an existing macro that finds all cells that have the same set of characters in them and remove said characters.

If the cell contents is $30.000 **, I want to remove the extra space after the last zero and the two asterisks. I can do it using Find and Replace while in the worksheet itself using Find "~**" and Replace "". Everything works fine. I tried recording this as a macro and pasting it into my code and it just will not find or replace cells that have the asterisks in them.

This is the code the macro is capturing:
 Cells.Replace What:="~**", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
What am I missing here?

I am running 2007 but this needs to work with 2003, too.

Thanks for your help!