Code to eliminate "-" from cells

[cburnham]

I am trying to write a code that finds the character "-" from cells in a range B3:H3 and clears the contents. I've seemed to hit a snag and could use some help

 

[Oeldere]

Maybe you can work with.

CNTR + H

- change by empty

 

[Andrew Poulsom]

Welcome to MrExcel.

Can't you just Edit|Replace - with nothing?

 

[Scott Huish]

Do you want to clear the ENTIRE contents of the cell if it contains a - ?

 

[cburnham]

Yes hotpepper. I have already written a code that automatically pulls data from these cells to make a line chart, but I need to clear the contents of these cells that have "-" so that it will format the chart correctly and view it as blank.

 

[Scott Huish]

Sub test()
Dim c As Range
For Each c In Range("B3:H3")
    If InStr(c.Text, "-") Then c.ClearContents
Next
End Sub

 

[cburnham]

Thanks Hotpepper that worked great...! My If,then stateent was all off.