Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Value = 1
End Sub
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