I see what you mean there. It's amazing how that one little dot can make all the difference.

I was looking at the other suggestion you made. About one routine that is called by all the buttons and then modified slightly by the use of the Id.

I think if I put a Select Case feature in there for the colors it would work. But I'm a little confused about the rng, is that being set by this code?
        Call ApplyBorders(.Cells(ActiveCell.Row, "A").Resize(,5)) 
        Call ApplyColour(.Cells(ActiveCell.Row, "A").Resize(,5))
If so, then I just need to make another Function called "ApplyColour" and set the rng the same as the ApplyBorders function, correct?