Find replace * deletes all data?

[mlangen]

Is there a way to search for * and replace them with nothing?

I want to delete all the * from my worksheet though when I do a find replace it deletes all the worksheet data

Sub test3()
    Cells.Replace What:="*", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[jim may]

Try: (Note addition of "~" title before the *)

Sub test3()
Cells.Replace What:="~*", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[mlangen]

Thank you, still wipes the worksheet....

 

[Alphacsulb]

Try
Sub test3() Cells.Replace What:="~*", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub</pre>

 

[mlangen]

Thanky you, apparently I had

Cells.Replace What:="?",

which was also deleting everything...