VBA to hide columns if criteria is met

Or try:

Sub HiddenColumns()
    HideShowColumns Range("A2:AD2")
    HideShowColumns Range("AE12:BG12")
End Sub

Sub HideShowColumns(columnsRng As Range)
    Dim c As Range
    For Each c In columnsRng.Rows(1).Cells
       If c.Value = "0" Then
            c.EntireColumn.Hidden = Not c.EntireColumn.Hidden
    End If
    Next c
End Sub