Thanks for the links. I've been googling like crazy as well, but hadn't come across that last link for some reason; odd. At any rate, the last code on that link will work for what I need it to do. Here is a copy of the code. I just need to change the "OpenFold" and "strFolder" to reference cell values, have it call a function, and I should be all set.
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 Msgbox "The folder is open"
End If
Next Wnd
End Sub
Thanks for the assistance!
Bookmarks