Hi,

I made a commandbutton (activeX) with following code:

Private Sub CommandButton1_Click()
Application.OnKey "{F8}", "test"
End Sub

Sub test()
MsgBox ("ok")
End Sub

But after clicking on it and pressing F8, nothing happens.
Thanks for any advice.
bob

Hi bob,

bob wrote:
I made a commandbutton (activeX) with following code:

Private Sub CommandButton1_Click()
Application.OnKey "{F8}", "test"
End Sub

Sub test()
MsgBox ("ok")
End Sub

But after clicking on it and pressing F8, nothing happens.
Thanks for any advice.
bob

write the Sub procedure in a standard module not in the Class module of the sheet.

--
Regards
Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)

Hi Bob,

I made a commandbutton (activeX) with following code:

Private Sub CommandButton1_Click()
Application.OnKey "{F8}", "test"
End Sub

Sub test()
MsgBox ("ok")
End Sub

But after clicking on it and pressing F8, nothing happens.
Thanks for any advice.


Place the macro called "test" in a normal module.

Regards,

Jan Karel Pieterse
Excel MVP
www.jkp-ads.com