проверьте, открыта ли папка vba, затем покажите ее сверху

Question

Я нашел сообщение и переполнение стека кода около Проверьте, открыта ли папка (VBA) .

Как насчет просто показать его в верхней части экрана, если папкауже открыт?

Sub test1()
    Dim OpenFold As Variant
    Dim oShell As Object
    Dim Wnd As Object
    Dim strFolder

    OpenFold = "mysubfolder"
    strFolder = "U:\myfolder\" & OpenFold
    Set oShell = CreateObject("Shell.Application")

    For Each Wnd In oShell.Windows
        If Wnd.Name = "Windows Explorer" Then
           If Wnd.Document.Folder.Self.Path = strFolder Then Exit Sub 
        End If
    Next Wnd
    Application.ThisWorkbook.FollowHyperlink Address:=strFolder, NewWindow:=True
End Sub