Its returning the character code..65 for A and so on..However if you are
unfamilar use the below code....

Dim A As Integer

If Chr(KeyCode) = "A" Then
AddTitle.Show
End If

If this post helps click Yes
---------------
Jacob Skaria


"Bishop" wrote:

I have the following code:

Private Sub AddButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)

Dim A As Integer

If KeyCode = A Then
AddTitle.Show
End If

End Sub

but it doesn't work. What am I doing wrong?

"Jacob Skaria" wrote:

Use the keydown event of the command button. or the userform..

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
If KeyCode = 65 Then MsgBox "Run"
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"Bishop" wrote:

Is there a way to activate a command button by simply pressing a single
letter on the keyboard? For example, say I have a button that says "Add A
Title". When I press the A key I want the button to activate and process
whatever code is attached to it.