Hello devpp,

With your Application.ScreenUpdating= False, try adding Application.Calculation= xlCalculationManual,and then at the end of your Code, with Application.ScreenUpdating = True, add also Application.Calculation = xlCalculationAutomatic.