Option
Explicit
Private
Sub
Worksheet_BeforeDoubleClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
If
Not
Intersect(Target, Union(Range(
"A1:G1"
), Cells(2, 2), Cells(3, 3)))
Is
Nothing
Then
_
If
ToggleButton1.Value
Then
_
Cancel =
True
: Target.Value = Target.Value &
"I"
End
Sub
Private
Sub
Worksheet_BeforeRightClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
If
Not
Intersect(Target, Union(Range(
"A1:G1"
), Cells(2, 2), Cells(3, 3)))
Is
Nothing
Then
If
ToggleButton1.Value
Then
With
Target
If
.Value <> vbNullString
Then
_
Cancel =
True
: .Value = Left$(
String
:=.Value, Length:=Len(.Value) - 1)
End
With
End
If
End
If
End
Sub