Rectangle Shape as Control Button

I have inserted in my sheet1 four rectangle shapes which I will assign Macros and use as control buttons. Is there a way to have each button activated by the use of ALT Key+Letter similar to the accelerator property in the VBA properties?

Hi oskar44,

See the attached file which uses the following Macros to do what you asked for. Please note that certain Alt Key and letter combinations are preassigned by Excel such at 'Alt E' for Edit.

The code below uses 'Alt' 1 thru 'Alt' 4. The numbers are the numbers above the letters, and NOT the numbers on the Numerical Keypad. The Numerical Keypad numbers require Special Codes. You can customize it to use whatever combinations you like.

In the ThisWorkbook Module:

Please Login or Register  to view this content.

In an ordinary Code module such as Module1:

Please Login or Register  to view this content.

Lewis

Thank you Lewis for your time, that's pretty good