XL2000

I have a column of data, formatted as General, alpha numeric only, no
formulas. I want the macro to search each cell and when it finds one that
has an "*" just ClearContents of that cell or better yet replace the entire
contents of that cell with "No JS #". I can't get the following code to
work. Anybody have any better ideas?

Sub Replace()
For Each c In Range("n3:n100")
If (c.Value) Like "~*" Then c.ClearContents
Next c
End Sub

Examples of the column of data look like:
Col. N
----------
*D*0704
P1449F0
*D*0704
P1449F0
*D*0703
*D*0703


Thanks,

Roger