Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$G$4" Then Range("G6").Select
If Target.Address = "$G$6" Then Range("G8").Select
If Target.Address = "$G$8" Then Range("L5").Select
If Target.Address = "$L$5" Then Range("L7").Select
If Target.Address = "$L$7" Then Range("K10").Select
If Target.Address = "$K$10" Then Range("M11").Select
If Target.Address = "$M$11" Then Range("K13").Select
If Target.Address = "$K$13" Then Range("B11").Select
If Target.Address = "$B$11" Then Range("B12").Select
If Target.Address = "$B$12" Then Range("B13").Select
If Target.Address = "$B$13" Then Range("B15").Select
If Target.Address = "$B$15" Then Range("B16").Select
If Target.Address = "$B$16" Then Range("B17").Select
End Sub