You have several With.Selection.Interior lines that have no End With. I would start there and see if that resolves your issue. I suspect that when you replaced your lines of code, you may have inadvertently removed them.
Additionally, if you wish for your code to run more efficiently, you may want to combine lines of code.
for example, lines like this
could be replaced with
and lines like this:
could be replaced with
It will take a bit of work to do this, but it will make your code shorter and faster.
Alan
Bookmarks