VBE IMMEDIATE WINDOW

Now It's hard for me to explain, but I need it

ok, but ...

Sub test()
Dim obj As Object
Set obj = Application.VBE
For I = 1 To obj.Windows.Count
If obj.Windows.Item(I).Caption = "Immediate" Then
Debug.Print (obj.Windows.Item(I).Caption)
obj.Windows.Item(I).SetFocus
SendKeys "^{Home}", True
SendKeys "^+{End}", True
SendKeys "{Del}", True
End If
Next I
End Sub

I thank for Your answer!

Macro below prints 1 

Sub immediate_window_BhBp_put_in()
'PUT IN IMMEDIATE WINDOW
For X = 1 To 200 'immediate have no more then 200 lines If Debug.Print 200 empty lines, immediate window is clearing

'You may show this when use this code:
'For X = 1 To 1000
Debug.Print X
Next
'Set WshShell = CreateObject("WScript.Shell")
'WshShell.SendKeys "^g^{HOME}" 'goto first line
End Sub

How to run this code.
Place this code in any Macros module
Open VBE
Press Ctrl-g

print "immediate" in immediate window
Press Ctrl-space 'drop down list with macros beginning with "immediate" appears
Select necessary macro using mouse or arrows - mmediate_window_BhBp_put_in
Press key Enter

Greetings!