How can you write a VBA script to delete all cells in a range containing a certain string?

Question

If I have a large range of cells, and I want to delete all cells containing just a "," or similar, how can I express this in code? I was thinking something along the lines of

If Range("C1:C100").Value = "," Then 
Active.Cell.Delete Shift:=xlRight 

I know this is terrible, but hopefully it gets my point across.

Thanks!

Answer 1

conceptually (not in front of Excel right now)

dim cel as range
for each cel in Range("C1:C100")
   if cel.Value = "," Then
      cel.Delete Shift:=xlRight 
   end if
next cel