Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)On Error Resume Next
If Intersect(Target, Columns("f:j")) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "1"
ElseIf ActiveCell.Value = "1" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub