ник: puzo
ток надо int ( nputBox ("Введите № начального файла") )
и енд соответственно преобразовать, а то получается ерунда
а вот
ThisWorkbook.path & Application.PathSeparator & "TZ\" & Str(Trim(iNomer)) имеет значение ("D:\excel\TZ\ 2201")
а Dir от этого значения : sFile = ""
и если в конец строки добавить & "*.*" или & ".*" - всё равно. не хочет он считать dir от этого значения.
соответственно сразу из цикла вываливается .
апд. написал и сам увидел - опять пробел перед 2201 )). убрал.
спасибо !!