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