Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long, ByVal y As Long)
Sub CursorOnRange()
Dim R As Range
Set R = ActiveSheet.[b6]
With ActiveWindow
SetCursorPos .PointsToScreenPixelsX(R.Left) + 30, .PointsToScreenPixelsY(R.Top) + 30
End With
End Sub