Nice Macro. 🙂

The only thing I'd add to the Sub ColorAlternateDataRows is this line at the start

Application.ScreenUpdating = False

And at the end

Application.ScreenUpdating = True

Then it runs much quicker

HTH

Dave J