イミディエイトウィンドウ内をクリアする

いろいろとイミディエイトウィンドウに出力していると
見にくくなります。

そのような場合、
手動でイミディエイトウィンドウ内を
すべてを選択して削除していました。

毎回このようなことをしていては
面倒なので
VBAでこれを実行したいと思います。

Debug.Printを使いますが、
文字を出力するのではなく
バックスペースを出力します。

適当に1000回出力します。

コードはこちら

Sub macro110507a()
'イミディエイトウィンドウを
'すべてクリアする

    Dim i As Integer
    For i = 1 To 1000
        'Chr(8)=バックスペース
        Debug.Print Chr(8)
    Next i
   
End Sub