タイトルバーに文字を表示します。ファイル名が変更されるわけではありませんので、一度ファイルを閉じ、再度開くと元のファイル名に戻ります。 Sub Sample26() ActiveWindow.Caption = "あいうえお" End Sub