JimS
02-16-2009, 09:19 AM
I have a day off and apparently so does my brain.
I want to ClearContents if a Zero is in the Cell of a Name Range.
This code does not work.
What am I missing?
OTZeros is the Range Name
Sub DelZeros()
Dim zRng As String
zRng = Range("OTZeros")
For Each Cell In zRng
If Cell.Value = "0" Then Cell.ClearContents
Next Cell
End Sub
Thanks...
Jim
I want to ClearContents if a Zero is in the Cell of a Name Range.
This code does not work.
What am I missing?
OTZeros is the Range Name
Sub DelZeros()
Dim zRng As String
zRng = Range("OTZeros")
For Each Cell In zRng
If Cell.Value = "0" Then Cell.ClearContents
Next Cell
End Sub
Thanks...
Jim