Application.CountA does not reckognize formula

[davidam]

Hello,
This code hides rows if the cells in the range are blank; but if a formula makes the cell value is = 0, it does not. Any suggestions?

Sub Button1_Click()
Dim rng As Range, cell As Range
Set rng = Range("B4:B20")
For Each cell In rng
If Application.CountA(cell) = 0 Then cell.EntireRow.Hidden = True
Next
End Sub

Thank you.

 

[VoG]

Hi. Try this

If cell.Value = "" Or cell.Value = 0 Then cell.EntireRow.Hidden = True

 

[davidam]

Yes thats got it. I think I have not fully understood the power of the 'For Each'...'Next' commands. Thanks Peter!