another approach

If InStr(1, c, "*") 0 Then c.ClearContents


--


Gary


"Roger" wrote in message
...
No luck, it just leaves the cells with an "*" alone like my other code.


"Vergel Adriano" wrote in message
...
Roger,

Try it this way:

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





"Roger" wrote:

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