Option
Explicit
Private
Sub
Worksheet_BeforeDoubleClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
With
Target
If
.Address =
"$A$1"
Then
_
If
ToggleButton1.Value
Then
_
Cancel =
True
: .Value = .Value &
"I"
End
With
End
Sub
Private
Sub
Worksheet_BeforeRightClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
With
Target
If
.Address =
"$A$1"
Then
_
If
ToggleButton1.Value
Then
_
If
.Value <> vbNullString
Then
_
Cancel =
True
: .Value = Left$(
String
:=.Value, Length:=Len(.Value) - 1)
End
With
End
Sub