Ciao
a completare l'opera
ci vorrebbe una cell con scritto 11 che scopra tutte le colonne
per esempio in B5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim d
If Not Intersect(Target, [b3,d3,f3,h3,j3,l3,b5,d5,f5,h5,j5,l5]) Is Nothing Then
d = Target
Application.ScreenUpdating = False
Columns("O:DL").Select
Selection.EntireColumn.Hidden = True
Select Case d
Case 0: Columns("O:DL").Select: Selection.EntireColumn.Hidden = True: Cells(1, 1).Select
Case 1: Columns("P:Y").Select: Selection.EntireColumn.Hidden = False
Case 2: Columns("Z:AI").Select: Selection.EntireColumn.Hidden = False
Case 3: Columns("AJ:AS").Select: Selection.EntireColumn.Hidden = False
Case 4: Columns("AT:BC").Select: Selection.EntireColumn.Hidden = False
Case 5: Columns("BD:BM").Select: Selection.EntireColumn.Hidden = False
Case 6: Columns("BN:BW").Select: Selection.EntireColumn.Hidden = False
Case 7: Columns("BX:CG").Select: Selection.EntireColumn.Hidden = False
Case 8: Columns("CH:CQ").Select: Selection.EntireColumn.Hidden = False
Case 9: Columns("CR:DA").Select: Selection.EntireColumn.Hidden = False
Case 10: Columns("DB:DK").Select: Selection.EntireColumn.Hidden = False
Case 11: Columns("O:DL").Select: Selection.EntireColumn.Hidden = False: Cells(1, 1).Select
End Select
Application.ScreenUpdating = True
End If
End Sub