путь к файлу на каталог выше

[Hugo121]

Имхо первоначальный посыл лучше бы был таким:

MsgBox CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.ParentFolder.Name

Так ошибки у меня нет, есть результат.

[IgorGO]

чтобы не оказаться в злостных плагиаторах:

MsgBox Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - InStr(StrReverse(ThisWorkbook.Path), Application.PathSeparator))

на выходе должно быть то же, что и у Hugo121 (и полностью отвечает на вопрос в теме)

[Hugo121]

Нет, Игорь, у меня на выходе Name, у тебя FullName.
Мой вариант требует в конце ParentFolder.Path - тогда результат был бы одинаков
И вот к FullName уже можно лепить дальнейший путь.

[IgorGO]

Hugo121, согласен, но мне, с моим уровнем компетенции - такие мелочи позволительны...
полный путь, не полный путь - это ерунда, главное - чтобы он не расходился с путем выбранным партией и правительством!

[Magnetic Air]

IgorGO, Hugo121 спасибо.
решение найдено:

Workbooks.Open CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.ParentFolder.ParentFolder.ParentFolder & "\продажи\ДЗ\ДЗ_2011.xls"

но оно рождалось в муках....