Thanks for the quick reply...BUT that last one did not work. Any other ideas
Thanks

"Per Jessen" wrote:

Hi again,
Thanks for your reply.

Try this

Sub EmptyRange()
Dim TargetRange As Range
Set TargetRange = Range("A1:Z100")

For Each c In TargetRange
If c.Value = Format("0", "$0.00") Then c.Value = ""
Next
End Sub

Best regards,
Per

"pcor" skrev i meddelelsen
...
Just great. An now if I may.
How do I replace at these $0.00 with a blank
Thanks very much

"pcor" wrote:

I need a macro that will check out a given range( say a1 to z100)
As it checkd ther range(a1..z100) if there is NOT data in the cell,
replace
the blank cell with $0.00
I appreciate all the help I am getting from this site