Detecting Keys Held down

I want to use the IF procedure with a procedure for detecting whether the Control key (or Shift key) are being held down.
If they are I want to exit the procedure otherwise I want to continue with my code. How can I detect these keys please?

[dk]

One way you can do this is with API calls. How about this?

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long

Const VK_SHIFT As Long = &H10
Const VK_CONTROL As Long = &H11

Sub YourProcedure()

If GetKeyState(VK_SHIFT) < 0 Then
    MsgBox "Shift is being held"
End If

If GetKeyState(VK_CONTROL) < 0 Then
    MsgBox "Control is being held"
End If

End Sub

HTH,
D

Thanks. This works well enough in context.

However, I am putting a file reference procedure (using the Bforeprint event) into the code. The problem is that I would like to save the procedure in a way that will enable any open workbook to use it.

I want to save the beforeprint procedure (maybe in a class module) then save the workbook as an addin. I then want to be able to open any workbook and have the procedure apply to that workbook.

Please please please can someone help me here! Thanks in advance.

Jim