Solved: Referencing a Name Range with VBA

[JimS]

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

[MaximS]

try this:

[VBA]
Sub DelZeros()
Dim zRng As Range
Set zRng = Range("OTZeros") 'I presume OTZeros is Named Range

For Each Cell In zRng
If Cell.Value = "0" Then Cell.ClearContents
Next Cell

End Sub
[/VBA]

[mdmackillop]

It you're not using the Variable range name elsewhere, then
[VBA]
For Each Cell In Range("OTZeros")
[/VBA]

[JimS]

Thank you very much...

Jim