Option
Explicit
Private
Sub
CommandButton1_Click()
Cells(1, 1).Value = Cells(1, 1).Value &
"I"
End
Sub
Private
Sub
CommandButton1_MouseUp(
ByVal
Button
As
Integer
,
ByVal
Shift
As
Integer
,
ByVal
X
As
Single
,
ByVal
Y
As
Single
)
If
Button = xlSecondaryButton
Then
_
Cells(1, 1).Value = Left$(
String
:=Cells(1, 1).Value, _
Length:=Len(Cells(1, 1).Value) - 1)
End
Sub