Sub book̐؂ւ()

    Dim WB1 As Workbook
    Dim WB2 As Workbook
    
    Set WB1 = ActiveWorkbook
    Set WB2 = Workbooks.Open("C:\Users\miya\Desktop\Book1.xlsm")

    WB1.Worksheets(1).Active

End Sub

