Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim i&
If Target.Count = 1 Then
If Target.Column = 1 Then
Application.ScreenUpdating = False
If Target <> "" And Target.Offset(1).EntireRow.Hidden = True Then
Cancel = True
i = 1
Do While Target.Offset(i).EntireRow.Hidden = True
Target.Offset(i).EntireRow.Hidden = False
i = i + 1
Loop
ElseIf Target <> "" And Target.Offset(1).EntireRow.Hidden = False Then
Cancel = True
i = 1
Do While Target.Offset(i) = "" And Target.Offset(i, 1) <> ""
Target.Offset(i).EntireRow.Hidden = True
i = i + 1
Loop
End If
End If
End If
End Sub