How do you track the mouse pointer in Excel

[GeorgeAdamson]

Excel macros do not offer the MouseMove event for Worksheets (it's only available over controls).

Any idea how to detect MouseMove some other way?

Many thanks!
(PS: Using Excel 97 & 2000)

[dk]

You can use a simple Windows API call. Insert this code in a standard module and give it a go.

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
        x As Long
        y As Long
End Type


Sub GetTheCursorPosition()
Dim lngCurPos As POINTAPI

Do
    GetCursorPos lngCurPos
    Cells(1, 1).Value = "X = " & lngCurPos.x
    Cells(2, 1).Value = "Y = " & lngCurPos.y
    DoEvents
Loop

End Sub

HTH,
D

[GeorgeAdamson]

Nice one, thank you.

I don't suppose you'd know how to detect when the mouse is over specific cells would you?!