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