Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Union(Range("A2"), Range("F2"))) Is Nothing Then
If Target.Column = 1 Then Rows(3).Hidden = Not Rows(3).Hidden
If Target.Column = 6 Then Columns("G:J").Hidden = Not Columns("G:J").Hidden
[A1].Select
End If
End Sub