Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col As Byte
Dim fin As Byte
col = Target.Column
Cells.EntireColumn.Hidden = False
If col > 1 Then
Range(Cells(1, 1), Cells(1, col - 1)).EntireColumn.Hidden = True
fin = col + 13 - (col Mod 12)
Range(Cells(1, fin), Cells(1, 256)).EntireColumn.Hidden = True
End If
Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cells.EntireColumn.Hidden = False
Cancel = True
End Sub