Sub ImmediateImediate()
If Application.VBE.MainWindow.Visible = False Then Application.SendKeys Keys:="%{F11}"
Application.SendKeys Keys:="^g"
Debug.Print "Don't blink, or you will miss this!.. ( hopefully :-) )"
Application.OnTime earliesttime:=Now + TimeValue("0:00:01"), procedure:="WipeMy_"
Application.OnTime earliesttime:=Now + TimeValue("0:00:02"), procedure:="Trash_t"
End Sub
Public Sub Trash_t()
On Error Resume Next
Application.VBE.Windows("Immediate").Close ' English Excel
Application.VBE.Windows("Direktbereich").Close ' German Excel
' Application.VBE.Windows("&%$§$%&!*#").Close ' HinDuWolly Excel
On Error GoTo 0
Let Application.VBE.MainWindow.Visible = False
End Sub
Public Sub WipeMy_()
Application.SendKeys "^g ^a {DEL} "
End Sub
Comments
0 B
|👍
/👎
0 B
|0 👍
/0 👎
0 B
|👍
/👎