Sub ウィンドウ_window_をアクティブにする()

    'ファイル名取得
    このファイル名 = ThisWorkbook.Name
    
    '拡張子部分をカットする
    このファイル名 = Replace(このファイル名, ".xlsm", "")
    
    'タスクバーに表示されているように後ろに文字を追加する
    このファイル名 = このファイル名 & " - Excel"
    
    'このファイルをアクティブにする
    Call AppActivate(このファイル名)

End Sub