What module contains this code?
What is the ActiveSheet when this code is run?
It's almost always better to attach your file rather than snippets of code because the context is important.
I also suggest you use
at the beginning then set back to True at the end. Even without the Selects, screen updates take a lot of time.
Eliminating the Selects may speed things up a little but that may not be the main problem. It's possible your array formulas are sucking up a lot of calculate time.
In general you can change things like this
to this
but I didn't take the (large amount of) time to edit all your code.
Bookmarks