Try adding this as the first line of your Sub: Application.ScreenUpdating = False
and this as the last line: Application.ScreenUpdating = True