A bug found because of using End(xlDown) Please stop using Range("A1"). ...
Applies certain color to sheet tab in Excel. ColorNumber is Excel ColorIndex. ...
50 chars max.