Slow execution in Excel VBA code

Enter these lines in the start of your code:
Application.enableEvents=False
Application.screenupdating=False

Enter these lines at the end of your code:
Application.enableEvents=True
Application.screenupdating=True