Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$B$2" Then
For Each n In [B4:AF4]
If n = 0 Then
n.Columns.Hidden = True
Else
n.Columns.Hidden = False
End If
Next
End If
Application.ScreenUpdating = True
End Sub