Option Explicit
Sub AllZeros()
Dim CRange As Range
'defines range as the Activesheet, cells A1:A11
'you can swap the Activesheet reference for Sheets("INSERTYOURSHEETNAME")
Set CRange = ActiveSheet.[a1:a11]
Dim C As Long
Dim Cn As Long
'Cn is a simple counter - it starts at Zero and every time a cell in your Crange (check range) has a zero
'the counter adds 1
Cn = 0
'This is where the macro looks at each cell in Crange to check if it has a 0
For C = 1 To CRange.Rows.Count
If CRange(C).Value = 0 Then
Cn = Cn + 1
End If
Next
'Finally, it checks if the counter (Cn) equals the number of rows in Crange
'if it does, it hides the entire column
If Cn = CRange.Rows.Count Then
CRange(1).EntireColumn.Hidden = True
End If
End Sub
