If cell is zero, give me blank VBA

[squnibi]

Hi,

How do I make VBA paste a value of zero as a blank?

 

[Smoakstack]

Dim A as range

For Each A In Sheet1.Range("your range here")
If (A.Value = 0) Then
A.Text = ""
End if
Next A

Just wrote it, havent tried it. Not sure exactly if that is what you're looking for

 

[ericlim1963]

Sub ChangeZero()
Dim A as range

For Each A In Sheets("Sheet1".Range("a:a") ' for example
If A.Value = 0 Then
A.Value= ""
End if
Next A

End Sub