VBA~ウィンドウのタイトルバーの表示を一時的に変更しよう~Excel
VBAでウィンドウのタイトルバーの表示を一時的に変更したい場合はWindow.Captionプロパティで設定できます。
Book1.xlsxというブックが開かれた状態で下のコードを実行するとBook.xlsxのタイトルバーにTestと表示されます。この表示はブックを閉じて再度開くと元のタイトルに戻ります。
Sub test1() Windows("Book1.xlsx").Caption = "Test" End Sub