Application.ScreenUpdating = True Should be at the end. As it means, False desactivate the screen updating. And if you delete the line Application.StatusBar = Format(i / Number_Of_Rows, "0%") what is the time with and without...