Code to clear Immediate window

[JenniferMurphy]

I found this code that is supposed to clear the Immedite window.

Sub ClearImmediateWindow()
Application.SendKeys "^g", True
Application.SendKeys "a", True
Application.SendKeys "{DEL}", True
End Sub

If I type "ClearImmediateWindow" in the Immediate window, it works. But if I call it from a UDF, it does nothing.

 

[JenniferMurphy]

For the output to a text file on the hard drive (make sure to change the filename and its path to one of your choosing)...

Sub TextOut(Txt As String)
  Open "c:\Temp\TestTestTest.txt" For Append As #1
    Print #1, Txt
  Close #1
End Sub

I got that to work. Excellent. Thank you.

1. Is there a way that I can get this Sub to open the destination folder in Windows Explorer?

2. Alternatively, is there a way that I can get the Sub to use the folder where the calling worbook in stored without having to pass that information?

3. How is this different from the OpenTextFile method?

4. I can see lots of uses for this. But I can't watch it as the code runs, like I can in the Immediate window. Do you know of code that I can use inside a UDF or Macro to clear the Immediate window?

 

[JenniferMurphy]

I think I found the asnwert to #2. Sorry.