Collapse columns based on date-defined YTD columns

[HubbaBuba2]

It's a touch easier than it sounds as the columns only have current year months.
What I want/need to to tie a VBA/macro to a Excel command (not active-x) character I have where when it is clicked the months YTD display, and beyond the current month hide.
I'd planned on using excel's Today formula to pull the current month, then to concatenate it to the month. Then if the formula can pull the months up to the current month (as defined in this date month and display them. Hiding the subsequent consecutive columns please.

Any thoughts MOST appreciated! Careful, I've only done a little VBA! (More w/ macros.)