Workbooks.Open Filename:="C:\папка\важная папка\очень важная папка\файл.xlsx"
Workbooks.Open Filename:="C:\папка\важная папка\красный\файл.xlsx"
Workbooks.Open Filename:="C:\папка\важная папка\" & [A1] & "\файл.xlsx"