VBA/Excel/Access/Word/Application/Application SendKeys
Clears Immediate window
<source lang="vb">
Sub SendKeyActionToImmediateWindow()
Application.VBE.Windows.Item("Immediate").SetFocus Application.SendKeys "^a" Application.SendKeys "{Del}"
End Sub
</source>
Sent key stroke with Application.SendKeys
<source lang="vb">
Public Sub SendKeyTest()
Dim ReturnValue As Double ReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus) Call AppActivate(ReturnValue) Application.SendKeys "Copy Data.xls c:\", True Application.SendKeys "~", True Application.SendKeys "%FABATCH~", True
End Sub
</source>