Attribute VB_Name = "testwindowope4"
Sub テスト()
    
    Dim window1 As Window
    
    Windows("VBAsample.xls").Activate
    Set window1 = ActiveWindow
    
    window1.ActiveSheet.Range("A1").Value = window1.Caption
    
    window1.Caption = "タイトル"
    window1.ActiveSheet.Range("A2").Value = window1.Caption
     
End Sub