F tuşlarına makro atamak.

[acolkesen1]

Merhaba arkadaşlar,
Daha önce forumda F tuşlarına makro atamakla ilgili bir konuya rastlamıştım. Ancak şimdi bulamıyorum. bu konuda yardımcı olabilecek arkadaşlara teşekkür ederim.

 

[Haluk]

Sub Auto_Open()
 Application.OnKey "{F6}", "Test"
End Sub
'
Sub Test()
    MsgBox "''F6'' tuşuna basıldı..."
End Sub
'
Sub Auto_Close()
    Application.OnKey "{F6}", ""
End Sub