Buttons

[Fire_Chief]

Is there a way I can press a number or a letter and have a sub routine run. I don't want a button on the page?

Thank You

 

[Warship]

You can use Ctrl+
Bring up your Macro Llist
Select Macro
Select Options
Set Key

 

[Dryver14]

Be aware when you set a Macro Key it will override its original purpose so if you allocate Control+C it will run the Macro for this reason most people use Control + Shift and a key so this does not happen

 

[Fire_Chief]

After I choose Options....

I see Editor, Editor Format, General and Docking but no where to set ket.

 

[Dryver14]

depending on the version of excel you need to select Macros in 2003
it is in the tools menu and 2007 you select it from the developer tab
then you will see a list of Macro's highlight the one you want to allocate a button to and then the options key is in the lower right hand corner of the tab

 

[pedie]

You may also try Onkey method. Run macro by just pressing D.

You may replace D with some other letter/alphabet if you wish to

In standard module...

[FONT=Courier New][COLOR=black]Option Explicit    [/COLOR][/FONT]
[FONT=Courier New][COLOR=black]Sub StartKey()[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]  Application.OnKey "D", "MyProcedure"[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]End Sub[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]Sub EndKey()[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]  Application.OnKey "D"[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]End Sub[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]Sub MyProcedure()[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]  MsgBox "My OnKey is active", 0, vbNullString[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]End Sub[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]'Thisworkbook module[/COLOR][/FONT]
[FONT=Courier New][FONT=Verdana][COLOR=black]Option Explicit[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]Private Sub Workbook_Activate()[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]   Call StartKey[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]End Sub[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]Private Sub Workbook_Deactivate()[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]   Call EndKey[/COLOR][/FONT]
[FONT=Courier New][COLOR=black]End Sub[/COLOR][/FONT]
[/FONT]

 

[Fire_Chief]

Thank You Dryver14. I got it