Onkey method to call Label click event

I am using a userform where only labels are there.
Labels will be clicked and the even is fired.
I have also assigned Shortcut key to labels, but Pressing with ALT key, the code doesnot fire. So I have used Onkey method.
Even this is not firing label caption.
The codes are:

[vba]
Private Sub Label5_Click()
MsgBox "You Clicked " & Label5.Caption
End Sub
[/vba]
[vba]
Private Sub UserForm_Activate()
Application.OnKey "%s", "Label5_Click()"
End Sub
[/vba]

[vba]
Private Sub UserForm_Deactivate()
Application.OnKey "%s", ""
End Sub
[/vba]


Label 5 caption is Select Company and accelerator is “S”

What’s the wrong going on? How can I use keyboard shortcut to fire label5 click event?

Note:
Also posted here

Hi there,

Quickly checked, but I made the userform modeless and it appears that the form cannot have the focus. If the sheet (or naybe more at the window) has the focus, OnKey calls the procedure. If the form has the focus, you just hear faint laughing...

Hope that helps,

Mark

If you are doing it in a userform, set a commandbutton's height to 0, accelerator to "s" and put "s" in the caption name for the button.

[VBA]Private Sub CommandButton1_Click()
Label1_Click
End Sub

Private Sub Label1_Click()
MsgBox "Label1"
End Sub[/VBA]

Perhaps
[VBA]Application.OnKey "%s", "UserForm1.Label5_Click()"[/VBA]

Thanks Kenneth,for providing a workaround.

mikerickson, its not working.