Shift Key Excel 2003 VBA

[MrPogle]

I know that I can trap the row and cell selected with Target.Row and Target.Column in a BeforeRightClick, Change etc. event but how can I also tell if a shift (shift, alt, ctrl) key is also pressed?

 

[Case_Germany]

Hi,

a possibility:

Option Explicit

Private Declare Function GetAsyncKeyState Lib _
    "user32" (ByVal vKey As Long) As Integer

Public Sub Test()
    If GetAsyncKeyState(&H10) Then MsgBox "Shift key is pressed"
    ' &H11 = Ctrl
    ' &H12)= Alt
End Sub

Case_Germany

 

[MrPogle]

This does the trick - Thanks very much!

I want be to be able to shift click on a row of values and create a graph from them and this will enable me to do exactly that.

Thanks again!