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