Clear method takes about 5 seconds

[YasserKhalil]

Hello everyone

I am using the following line (but I noticed it took about 5 seconds to clear the cells)

Code: Select all

Worksheets("Sheet1").UsedRange.Cells.Clear

Is there a better way to clear the cells faster?
I tried to disable screen updating but the same problem

[HansV]

You don't need .Cells in that line, but I don't think that will make a difference.

Does it help if you set

Application.Calculation = xlCalculationManual

before, and

Application.Calculation = xlCalculationAutomatic

after clearing?

[YasserKhalil]

Thanks a lot. It doesn't make difference too. It seems it is a problem of my hardware!!

[HansV]