Declare Sub mouse_event Lib "User32" (ByVal dwFlags As Long, _
ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Declare Function SetCursorPos Lib "User32" (ByVal X As Long, ByVal Y As Long) As Long
Global Const MOUSEEVENTF_LEFTDOWN = &H2
Global Const MOUSEEVENTF_LEFTUP = &H4
Global Const MOUSEEVENTF_RIGHTDOWN = &H8
Global Const MOUSEEVENTF_RIGHTUP = &H10
Sub Macro1()
SendKeys "%{TAB}", True
Call SetCursorPos(743, 540)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 743, 540, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 743, 540, 0, 0)
End Sub