Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement