Sub Macro1()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ActiveSheet.Activate
ActiveSheet.Unprotect "TEST"
With ws
.Cells.EntireColumn.Hidden = False
ActiveSheet.Activate
ActiveSheet.Unprotect "TEST"
Select Case .Range("A2").Value
Case 1
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("G:G,H:I,N:MZ").EntireColumn.Hidden = True
Case 2
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:N,T:V,AA:MZ").EntireColumn.Hidden = True
Case 3
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:AA,AG:AI,AN:MZ").EntireColumn.Hidden = True
Case 4
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:AN,AT:AV,BA:MZ").EntireColumn.Hidden = True
Case 5
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:BA,BG:BI,BN:MZ").EntireColumn.Hidden = True
Case 6
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:BN,BT:BV,CA:MZ").EntireColumn.Hidden = True
Case 7
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:CA,CG:CI,CM:MZ").EntireColumn.Hidden = True
Case 8
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:CN,CT:CV,DA:MZ").EntireColumn.Hidden = True
Case 9
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:DA,DG:DI,DN:MZ").EntireColumn.Hidden = True
Case 10
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:DN,DT:DV,EA:MZ").EntireColumn.Hidden = True
Case 11
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:EA,EG:EI,EN:MZ").EntireColumn.Hidden = True
Case 12
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:EN,ET:EV,FA:MZ").EntireColumn.Hidden = True
Case 13
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:FA,FG:FI,FN:MZ").EntireColumn.Hidden = True
Case 14
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:FN,FT:FV,GA:MZ").EntireColumn.Hidden = True
Case 15
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:GA,GG:GI,GN:MZ").EntireColumn.Hidden = True
Case 16
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:GN,GT:GV,HA:MZ").EntireColumn.Hidden = True
Case 17
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:HA,HG:HI,HN:MZ").EntireColumn.Hidden = True
Case 18
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:HN,HT:HV,IA:MZ").EntireColumn.Hidden = True
Case 19
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:IA,IG:II,IN:MZ").EntireColumn.Hidden = True
Case 20
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:IN,IT:IV,JA:MZ").EntireColumn.Hidden = True
Case 21
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:JA,JG:JI,JN:MZ").EntireColumn.Hidden = True
Case 22
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:JN,JT:JV,KA:MZ").EntireColumn.Hidden = True
Case 23
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:KA,KG:KI,KN:MZ").EntireColumn.Hidden = True
Case 24
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:KN,KT:KV,LA:MZ").EntireColumn.Hidden = True
Case 25
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:LA,LG:LI,LN:MZ").EntireColumn.Hidden = True
Case 26
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:LN,LT:LV,MA:MZ").EntireColumn.Hidden = True
Case 27
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:MA,MG:MI,MN:MZ").EntireColumn.Hidden = True
Case 28
.Range("A:A,H:MZ").EntireColumn.Hidden = False
.Range("B:MN,MT:MV,NA:MZ").EntireColumn.Hidden = True
End Select
ActiveSheet.Activate
ActiveSheet.Protect "TEST"
Range("A2").Select
Selection.Copy
ActiveSheet.Next.Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End With
Next
Application.ScreenUpdating = True
End Sub