All, I have this so far and it works as long as my file is in the "DOR" directory. If it is in any sub directory of "DOR" it can't be found. The code will open the file based on date on "Sheet1" What might I be missing? Sub OpenDOR() Workbooks.Open "https://airport.ishare.tsa.dhs.gov/fieldlocations/MHT/soc/SOC Scheduling/Shared Documents/DOR/DO Report " & Format(ThisWorkbook.Sheets("Sheet1").Range("DATE").Value, "mm-dd-yy") & ".xlsm" End Sub

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Search Subdirectories to locate and open file

Thread starter RandyD123
Start date Nov 10, 2022

RandyD123

Active Member

Nov 10, 2022

All,

I have this so far and it works as long as my file is in the "DOR" directory. If it is in any sub directory of "DOR" it can't be found. The code will open the file based on date on "Sheet1" What might I be missing?

VBA Code:

Sub OpenDOR()

Workbooks.Open "https://airport.ishare.tsa.dhs.gov/fieldlocations/MHT/soc/SOC Scheduling/Shared Documents/DOR/DO Report " & Format(ThisWorkbook.Sheets("Sheet1").Range("DATE").Value, "mm-dd-yy") & ".xlsm"

End Sub