Another common example:

    Range("D5,B8").Select
        With Selection.Interior

can be written:

    With Range("D5,B8").Interior

That will remove the need to select cells, etc.

Given that a lot of the code is repetitive, you would do better to create a subroutine that executes the common code. Sometimes, only one parameter varies and, in that case, it could be passed to the subroutine.


Regards, TMS