タイトルバーは通常ブック名のみ表示されていますが、この部分を自由に変更する事が可能です。 フルパスに変更するには、以下の様にします。 Sub Sample58() ActiveWindow.Caption = ActiveWorkbook.FullName End Sub ※この設定は保存されませんので、ブックを閉じれば元に戻ります。