VBAが実行されているブック以外のブック「Book2.xls」をアクティブにしてから
　閉じます。

Sub Sample()
    
    MsgBox "VBAが実行されているブックをアクティブにします。"
    Windows(ThisWorkbook.Name).Activate

    MsgBox "Book2.xlsをアクティブにします。"
    Workbooks("Book2.xls").Activate
    MsgBox "Book2.xlsを閉じます。"

    Workbooks("Book2.xls").Close

End Sub