Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("B4:S7")) Is Nothing Then
Cancel = True
ActiveCell = ActiveCell + 1
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("B4:S7")) Is Nothing Then
Cancel = True
ActiveCell = ActiveCell - 1
If ActiveCell = 0 Then ActiveCell = ""
End If
End Sub