In a standard code module at the top:
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
In the sheet concerned's code module:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'SetCursorPos _
ActiveWindow.ActivePane.PointsToScreenPixelsX(Target.Left), _
ActiveWindow.ActivePane.PointsToScreenPixelsY(Target.Top)
SetCursorPos _
ActiveWindow.ActivePane.PointsToScreenPixelsX(Target.Left + (Target.Width / 2)), _
ActiveWindow.ActivePane.PointsToScreenPixelsY(Target.Top + (Target.Height / 2))
End Sub