{quote}{login=Лузер™}{date=20.05.2008 10:00}{thema=}{post}...  
Вот только как определять, какая строка кода выполняется медленнее других?  
И еще вопрос почему использована функция StrAdd, а не Sub?{/post}{/quote}  
---  
Тормозила Union(Range1,Range2).  
Определялось это достаточно примитивно: была закомментрована вся строка с Union() - помогло.    
А затем раскомментирована, но в строке вместо Union() был вставлен пустой оператор типа i=i, скорость выполнения была хорошей. После чего были приняты меры вызывать Union() пореже.  
Хотя сначала был сделан вариант попроще - вообще без Union(), но он был помедленнее, прожорливее по оперативной памяти, и, главное, не работал на защищенных листах, поэтому от него пришлось отказаться.  
 
При большом количестве обрабатываемых ячеек обычно причиной тормозов кода является многократное обращение из рабочего пространства VBA в рабочее проостранство Excel. Это относится к использованию Application. , Cells(), Range(), .Select, .Hidden  и т.п. Поэтому под подозрение сразу визуально и попала Union(), которая доставала Excel из VBA.  
 
Что касается выбора Function или Sub - то это точно не ноу-хау, а тупая привычка использовать Function, чтобы не отображалась в панели макросов как Sub, хотя есть же и Private. В данном случае, конечно, Sub смотрелось бы  правильнее. В коде надстройки и Space(1024) лучше заменить на Space(256). Также две основные процедуры похожи друг на друга, и можно было бы сделать одну универсальную. Думаю, что многое еще можно было бы подправить и оптимизировать, но работает - и с плеч долой ;)  Было две цели: чтобы работало быстрее+надежно, и сделать быстро.  
---  
ZVI