Option
Explicit
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)
ElseIf
Button = xlPrimaryButton
Then
Cells(1, 1).Value = Cells(1, 1).Value &
"I"
End
If
End
Sub