' Disable Excel features

Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False

.
. Your code
.

' Re-enable Excel features

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