Don't forget to clear any OnKeys when done, for example in the workoks close event For something more general purpose look into use of the GetAsyncKeyState API, though Alt strokes

I have some add-ins with custom commandbars that have buttons on them that show a popup menu below

Hi, I have built a fairly simple Excel COM addin in visual basic 6 which loop 50000 times and adds up

Peter, I learned something new! This worked great, thank you so much. Dennis "Peter T" wrote: > Private Declare Function GetAsyncKeyState Lib "User32"

Declare Function GetAsyncKeyState Lib "user32" ( _ ByVal vKey As Long) As Integer Function ShiftCtrl() As Boolean If GetAsyncKeyState(vbKeyControl) Then ShiftCtrl

I have an ellaborate VBA project that does of most of any needed openening and closing of workbooks.

Declare Function GetAsyncKeyState _ Lib "user32" _ (ByVal vKey As Long) As Integer Function IsKeyDown(key As Long) As Boolean If GetAsyncKeyState(key) Then IsKeyDown

In one of my sheets I have button, starting a macro wih "MouseDown()". This macro starts a