Z otázky není zcela jasné, co je to druhý program. Je-li to exe soubor, či jiný sešit excel. Jde-li o dva sešity excel, lze to udělat následovně
ActiveWorkbook.Close
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Open Filename:="C:\DruhySesit.xlsx"
end subcitovat
ActiveWorkbook.Close
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Open Filename:="C:\DruhySesit.xlsx"
end subcitovat