Sub aaa()
' Application.Wait (Now + TimeValue("0:00:02"))
Call CTRL_P
' DoEvents
' Application.Wait (Now + TimeValue("0:00:05"))
For i = 1 To 100000000
Next i
Call ESC
End Sub
Sub CTRL_P()
Dim Wsh As Object
Set Wsh = CreateObject("WScript.Shell")
Wsh.SendKeys "^p", True
Set Wsh = Nothing
End Sub
Sub ESC()
Dim Wsh As Object
Set Wsh = CreateObject("WScript.Shell")
Wsh.SendKeys "{ESC}", True
Set Wsh = Nothing
End Sub