Turning off screen updating
Sub update() Application.ScreenUpdating = False Application.ScreenUpdating = True End Sub