Hide Row if result of a forumla is Zero

[excel5000]

Hi

VBA Noob posted the below script to hide rows if the value of a cell is zero. I would like to hide a row if the result of a formula is zero. When I use this, it's hiding all rows other than those that are blank.

Sub HideBlankRows()
Dim Last As Long
Dim Rng, c As Range
Last = Cells(Rows.Count, "AF").End(xlUp).Row
Set Rng = Range("AF9:AF" & Last)
Application.ScreenUpdating = False
For Each c In Rng
If c.Value = "0" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = True
End Sub

[J450n]

Try this instead for the if line:

If c.Value = "0" AND c.HasFormula = True Then

regards

J450n

[jraj1106]

Hi

Check this. I have used dummy data.

hiderowwithzero.xlsm

[excel5000]

Hi All

Thanks for your posts. I got the orginal one to work in the end.