Thisworkbook je stale ten vas puvodni sesit.
Asi nejak takto:
Dim novySesit As Workbook
Set novySesit = Workbooks.Open("C:\kdepadTenSesitAsiJe.xlsx")
'pak se na novy sesit lze odkazovat a treba vypsat hodnotu do immediate okna
Debug.Print novySesit.Worksheets(1).Range("A1")citovat