Валерий

в начале макроса
application.screenupdating = false
а в конце
application.screenupdating = true
Поможет скрыть мерцание и пользователь не увидит лист.