Открытие пути к файлу в Excel 2016

Question

Я пытаюсь написать VBA, чтобы открыть путь к файлу в прямой папке. Что не так с тем, как я это делаю? Это правильный способ сделать это?

Я искал и использовал здесь примеры, но получил сообщение об ошибке (см. Ниже)

Sub OpenFolder()
    Dim FolderPath As String

    FolderPath = "C:\Users\myname\Desktop\AdaptiveThreatProtection\"

    Call Shell("explorer.exe """ & FolderPath & "", vbNormalFocus)

End Sub

Answer 1

Sub OpenFolder()

    Dim MyFolder As String
    MyFolder = "C:\Users\myname\Desktop\AdaptiveThreatProtection"
    ThisWorkbook.FollowHyperlink MyFolder

End Sub

Использование ThisWorkbook помогло мне. Он открывает точный путь к файлу.