Відкрийте певний файл у певній теці разом із певним аркушем

Наведений нижче код відкриває певний файл у певній теці, але не на певному аркуші:

Sub test() 
  Dim myfile As String           
  myfile = Cells(1, 1).Value & Cells(1, 2).Value & Cells(1, 3).Value           
  Application.Workbooks.Open Filename:=myfile          
End Sub 

Як працює код:

• Згадайте шлях у стільнику A1 D:\My Data/
• Вкажіть підкаталог у комірці B1 Kitchen/
• Згадуйте ім'я файлу в комірці C1 Test.xls

Коли макрос запущений, він відкриває вказаний аркуш, тобто робочий лист-тест.

Мені потрібно ще одне доповнення до вищезгаданого коду, в якому, якщо лист називається в D1 Examples Макрос повинен відкрити тестовий аркуш і перейти до назви аркуша Приклади.

Робоча книга.Відкрийте не підтримує вказання назви аркуша.

Ти мусиш перейдіть до аркуша вручну Workbooks.Sheets("Sheet1").Activate

Sub test()

    Dim myFilePath As String
    Dim myWorkbook As Workbook

    myFilePath = Cells(1, 1).Value & Cells(1, 2).Value & Cells(1, 3).Value
    mySheetname = Cells(1, 4).Value

    Set myWorkbook = Application.Workbooks.Open(Filename:=myFilePath)
    On Error Resume Next
    myWorkbook.Sheets(Cstr(mySheetname)).Activate
    On Error GoTo 0

End Sub

Або скорочено

Sub test()
    Set myWorkbook = Application.Workbooks.Open(Filename:=[A1] & [B1] & [C1])
    On Error Resume Next
    myWorkbook.Sheets(Cstr([D1])).Activate
    On Error GoTo 0
End Sub