Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
Select Case Target.Address
Case Is = "$M$6:$N$6", "$Z$6:$AA$6", "$AM$6:$AN$6", "$AZ$6:$BA$6", "$BM$6:$BN$6"
Range(Cells(1, Target.Column + 2), Cells(1, Target.Column + 5)).EntireColumn.Hidden = _
Not Range(Cells(1, Target.Column + 2), Cells(1, Target.Column + 5)).EntireColumn.Hidden
Target.Offset(0, 2).Select
Target.Offset(0, 2).Select
Case Is = "$I$6:$J$6", "$V$6:$W$6", "$AI$6:$AJ$6", "$AV$6:$AW$6", "$BI$6:$BJ$6"
Range(Cells(1, Target.Column + 2), Cells(1, Target.Column + 3)).EntireColumn.Hidden = _
Not Range(Cells(1, Target.Column + 2), Cells(1, Target.Column + 3)).EntireColumn.Hidden
Target.Offset(0, 2).Select
Target.Offset(0, 2).Select
Case Is = "$A$8", "$A$15", "$A$22", "$A$29", "$A$36", "$A$43", "$A$50", "$A$57", "$A$64", "$A$71", "$A$78", "$A$85", "$A$92", "$A$99", "$A$106", "$A$113", "$A$120", "$A$127", "$A$134", "$A$141", "$A$148", "$A$155", "$A$162", "$A$169", "$A$176", "$A$183", "$A$190", "$A$197", "$A$204", "$A$211", "$A$218", "$A$225", "$A$232"
Rows(Target.Row + 1 & ":" & Target.Row + 6).EntireRow.Hidden = Not Rows(Target.Row + 1 & ":" & Target.Row + 6).EntireRow.Hidden
Target.Offset(1, 0).Select
End Select
ActiveSheet.Protect
End Sub