Visual Basic - Macro - ocultar columna si valor es 0

Sub Ocultar_Columnas()

    Dim Col As Integer

    For Col = 4 To 39

        If Cells(4, Col) = 0 Then  Columns(Col).Select: Selection.EntireColumn.Hidden = True

    Next

End Sub

Sub Ocultar_Columna_y_mostrar()

Sheets("Hoja1").Select

For Col = 33 To 65

If Cells(13, Col) = 0 Then

Columns(Col).EntireColumn.Hidden = True

Else

Columns(Col).EntireColumn.Hidden = False

End If

Next

End Sub