add
  Application.ScreenUpdating = False
before you start the loop