Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B4:F8")) Is Nothing And Target.Count = 1 Then
Target = Target + 1
[A1].Select
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B4:F8")) Is Nothing And Target.Count = 1 Then
Cancel = True
Target = Target + 1
[A1].Select
End If
End Sub