Attribute VB_Name = "testwindow1"
Sub テスト()
    
    Dim window1 As Window
    
    Set window1 = Application.Windows("2005年成績.xls")
    MsgBox window1.Caption
    
End Sub