Hi

At the beginning of your macro use
Application.ScreenUpdating=False
and at the end
Application.ScreenUpdating=True
Regards

Jeff