Miscellaneous code

Application.ScreenUpdating = False  
Application.Calculation = xlCalculationManual 'use with caution  
Application.EnableEvents = False

'YOUR CODE

Application.ScreenUpdating = True  
Application.Calculation = xlCalculationAutomatic  
Application.EnableEvents = True