Sub test()
Set myWorkbook = Application.Workbooks.Open(Filename:=[B1])
On Error Resume Next
myWorkbook.Sheets(Cstr([D1])).Activate
On Error GoTo 0
End Sub
Как работает вышеуказанный макрос:
Упомянуть путь Excel в ячейке B1
Название листа в ячейке D1
Когда макрос запускается, он открывает указанный Excel, а также лист.
Теперь ищем макрос, который может открыть документ Word, упомянутый в ячейке B1.
Ячейка B1 будет содержать путь к документу Word.