Need a fix to enable this marco in my existing workbook

[mercatog]

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 ScreenUpdating?

 

[kuldeepjainesl]

Hi,


Here it goes and results are:


Data set is same of each condition.


Application.ScreenUpdating = True + Application.StatusBar = Format(i / Number_Of_Rows, "0%") >>>>> 25 Sec


Application.ScreenUpdating = False + Application.StatusBar = Format(i / Number_Of_Rows, "0%") >>>>> 80 Sec


Application.ScreenUpdating = True without status bar update >>>>> 10-12 Sec


Application.ScreenUpdating = False without status bar update >>>>> 10-12 Sec


I must admit without status bar your code is running fast.


Regards,

 

[SirJB7]

@KPJSWT

Hi!

Thanks for the feedback, interesting figures.

Regards!