VBA hide/unhide rows containing 0's

Hi all,

I've managed to have the below work for a specific column, how would I go about adding additional columns? Apologies as I'm fairly green with this!

Option Explicit

Sub hideUnhideZeros()
Dim rng As Range
Dim R As Long
Dim RwCnt As Long

Set rng = ActiveSheet.Range(Cells(1, 5), Cells(Rows.Count, 5).End(xlUp))
RwCnt = rng.Rows.Count

For R = RwCnt To 1 Step -1
If Cells(R, 5).Value = 0 Then Cells(R, 5).EntireRow.Hidden = Not Cells(R, _
5).EntireRow.Hidden
Next R
End Sub


Thanks in advance.

My apologies, yes effectively I am needing to run the check for columns F and G.

Just F and G please, disregard column E for the moment.

Thanks Sintek, it doesn't appear to be unhiding the rows for me.

Yes Sintek, it works to hide the cells appropriately, it just doesn't unhide them when the macro is run again as the code I provided initially does.

Thanks Sintek, marked as solved and added to your reputation. Much appreciate the help!

Actually have encountered an unfortunate issue with this code. Rows that contain a 0 in both columns are not filtered out when this macro is used. Any ideas on how to resolve this?

Anyone have a solution for my last comment? Much appreciate the help!