Right Function using VBA

[omairhe]

Hello everyone,

In cell I3 of my sheet named "HSheet" when I press the letter "a" from my keyboard, the vba runs in the following fashion..

Private Sub Workbook_Activate()
Application.OnKey "a", "onA"
End Sub

Sub onA()
Sheets("HSheet").Range("I3").Value = Sheets("HSheet").Range("I3").Value & "a"
End Sub

I would like to keep the text in I3 with only one character from the right and then join it with the letter "a" at the end of it, instead of joining the entire text in cell I3 with an a.

Example requirment:

I3 = Cat
vba code = t & "a" = ta

I3 = Tennis
vba code = s & "a" = sa

I3 = p
vba code = p & "a" = pa

I3 = "" (blank)
vba code = "" & "a" = a

Thanks and will appreciate.

 

[aRandomHelper]

Sheets("HSheet").Range("I3").Value = Right(Sheets("HSheet").Range("I3").Value, 1) & "a"

But on second run onwards, it'll probably just keep taking "a" from cell I3

 

[omairhe]

Thanks .
I have other alphabet keys other than "a" that should run the same way.
example Application.Onkey "b", "OnB"

Hoping to not get into problems.