How to Deselect Multiple Ranges on Multiple Sheets After Select & Clear

Hi All and Happy Holidays,

I have problem that I've tried various code to solve, but can't seem to get anything to work.
The copy of code, in attached Word Doc (sorry if this is a problem) is from one of my module in VB Editor.

All the different ranges are selected on each of the budget sheets ("JAN BUDGET", etc.), then the code clears all data from each range on each sheet.

However, after the code runs, only the ranges on the "JAN BUDGET" sheet is deselected.
I suppose because I select A14 on this sheet, as the last line

But how do I get ranges on all the other budget sheets to also deselect,
but at the end have cell A14 on JAN BUDGET was the active cell?

Thanks for your help.