Попрбуйте в начале программы:  
Application.ScreenUpdating = False  
а вот под конец обязательно:  
Application.ScreenUpdating = True  
Если нужно еще и в статус бар можно вывести прикол какой-нить:-)

По мне, так лучше всего в статусбар. Не, можно еще и с красивостями(прогрессбар), но сам я этого не люблю и Вам не советую. Для статусбара в начале:  
   saveStatusBar = Application.DisplayStatusBar  
   Application.DisplayStatusBar = True  
далее:  
   Application.StatusBar = "Место клизмы изменить нельзя!"  
   Application.StatusBar = False  
И в конце возвращаем значение:  
   Application.DisplayStatusBar = saveStatusBar

ЙОДА, Мастер, не разлагайте авторов. Дайте им самим пройти путь познания силы:-). С уважением, Сергей.