I get an error on the Replace part of the following code for people who are
still using Excel 97. I have tried using substitute instead but this also
does not seem to work. Any suggestions would be appreciated.

My_Range.AutoFilter Field:=FieldNum, Criteria1:="=" & _

Replace(Replace(Replace(cell.Value, "~", "~~"), "*", "~*"), "?", "~?")