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.