Подставить значение текущего каталога

[kzld]

Сообщение от The_Prist

Что значит спотыкается? Учитесь описывать саму ошибку, а не слово "спотыкается".
Скорее всего надо эту строчку подкорректировать

If Dir(iPath) = "" Then

вот так

If Dir(iPath,vbdirectory) = "" Then

Спасибо.
Однако вновь создаваеиые файлы "складываются" не в текущий каталог, а на каталог выше
текущий I:\internet\excel-select\raznesti
файлы создаются здесь I:\internet\excel-select

[The_Prist]

Для начала ответьте: какой каталог для Вас является текущим?
В приведенном коде указывается не текущий каталог, а тот каталог, в котором расположена книга с кодом.