А если App.Path не работает

[Artur KakTus]

Прошу прощение за навязчивость, НО ОПЯТЬ проблема у ЧАЙНИКА, т.е. у меня.
Не могу сохранить файл в нужной папке. Т.е. если задать полный путь, то нет проблем, НО мне надо использовать функцию App.Path, т.к. я не знаю точного пути для сохраняемого файла, кроме одного условия - файл должен сохранится во вложенной папке текущей папки. (Например я открываю проект С:\мояПрога\суперфайл.xls. После мне надо сохранить файл результатов обработки в С:\мояПрога\вложеная\неПойму.xls Суперфайл.xls может быть и в другой папке и на другом диске, поэтому указание полного пути не подходит. )
Все казалось бы просто но VBA не понимает App.Path.
Как быть, я уверен, что это элементарно, но я не совсем Понимаю. Уже перепробывал много способов и \\арар\ и ...\\...\ и т.д.)
ПРОШУ ПОМОЧЬ

[RayShade]

Application.Path не поможет отцу русской демократии?

[alibek]

Сомневаюсь, это путь к Excel.
Из чего ты сохраняешь? Из макроса xls-файла? Тогда это будет ThisWorkbook.Path. А почему бы не использовать CurDir$()?

[Artur KakTus]

Спасибо Alibek, ты прав я даже забыл про ThisWorkbook.
Попробывал все ОК. Позже попробую с CurDir$()

Пока работает :
Dim dir As String
dir = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=dir & "\kvartal\1ìåñÿö.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False