Sub Hide()
If Range("F2501") = 0 Then
[F1].EntireColumn.Hidden = True
Else
[G1].EntireColumn.Hidden = True
If Range("G2501") = 0 Then
[G1].EntireColumn.Hidden = True
Else
[H1].EntireColumn.Hidden = True
If Range("H2501") = 0 Then
[H1].EntireColumn.Hidden = False
If Range("I2501") = 0 Then
[I1].EntireColumn.Hidden = True
If Range("J2501") = 0 Then
[J1].EntireColumn.Hidden = True
If Range("K2501") = 0 Then
[K1].EntireColumn.Hidden = True
If Range("L2501") = 0 Then
[L1].EntireColumn.Hidden = True
If Range("M2501") = 0 Then
[M1].EntireColumn.Hidden = True
If Range("O2501") = 0 Then
[O1].EntireColumn.Hidden = True
If Range("P2501") = 0 Then
[P1].EntireColumn.Hidden = True
If Range("Q2501") = 0 Then
[Q1].EntireColumn.Hidden = True
If Range("Q2501") = 0 Then
[Q1].EntireColumn.Hidden = True
If Range("R2501") = 0 Then
[R1].EntireColumn.Hidden = True
If Range("S2501") = 0 Then
[S1].EntireColumn.Hidden = True
If Range("T2501") = 0 Then
[T1].EntireColumn.Hidden = True
If Range("U2501") = 0 Then
[U1].EntireColumn.Hidden = True
If Range("V2501") = 0 Then
[V1].EntireColumn.Hidden = True
If Range("W2501") = 0 Then
[W1].EntireColumn.Hidden = True
If Range("X2501") = 0 Then
[X1].EntireColumn.Hidden = True
If Range("Y2501") = 0 Then
[Y1].EntireColumn.Hidden = True
If Range("Z2501") = 0 Then
[Z1].EntireColumn.Hidden = True
If Range("AA2501") = 0 Then
[AA1].EntireColumn.Hidden = True
If Range("AB2501") = 0 Then
[AB1].EntireColumn.Hidden = True
If Range("AC2501") = 0 Then
[AC1].EntireColumn.Hidden = True
If Range("AD2501") = 0 Then
[AD1].EntireColumn.Hidden = True
If Range("AE2501") = 0 Then
[AE1].EntireColumn.Hidden = True
If Range("AF2501") = 0 Then
[AF1].EntireColumn.Hidden = True
If Range("AG2501") = 0 Then
[AG1].EntireColumn.Hidden = True
If Range("AH2501") = 0 Then
[AH1].EntireColumn.Hidden = True
If Range("AI2501") = 0 Then
[AI1].EntireColumn.Hidden = True
If Range("AI2501") = 0 Then
[AI1].EntireColumn.Hidden = True
If Range("AJ2501") = 0 Then
[AJ1].EntireColumn.Hidden = True
If Range("AK2501") = 0 Then
[AK1].EntireColumn.Hidden = True
If Range("AL2501") = 0 Then
[AL1].EntireColumn.Hidden = True
If Range("AM2501") = 0 Then
[AM1].EntireColumn.Hidden = True
If Range("AN2501") = 0 Then
[AN1].EntireColumn.Hidden = True
If Range("AO2501") = 0 Then
[AO1].EntireColumn.Hidden = True
If Range("AP2501") = 0 Then
[AP1].EntireColumn.Hidden = True
If Range("AQ2501") = 0 Then
[AQ1].EntireColumn.Hidden = True
If Range("AR2501") = 0 Then
[AR1].EntireColumn.Hidden = True
If Range("AS2501") = 0 Then
[AS1].EntireColumn.Hidden = True
If Range("AT2501") = 0 Then
[AT1].EntireColumn.Hidden = True
If Range("AU2501") = 0 Then
[AU1].EntireColumn.Hidden = True
If Range("AV2501") = 0 Then
[AV1].EntireColumn.Hidden = True
If Range("AW2501") = 0 Then
[AW1].EntireColumn.Hidden = True
If Range("AX2501") = 0 Then
[AX1].EntireColumn.Hidden = True
If Range("AY2501") = 0 Then
[AY1].EntireColumn.Hidden = True
If Range("AZ2501") = 0 Then
[AZ1].EntireColumn.Hidden = True
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Sub Show()
Columns.Hidden = False
Rows.Hidden = False
End Sub