Column chart, one data column of dates: count of month & year

Good Afternoon!

I suspect I am making this much harder than it need be; it's been a while since I dabbled in charting.

I wish to create a menu selection that when selected creates a column chart on a separate sheet.

As a note, I do not wish to use a pivot chart; I wish to run an automated sub upon selection from the afore mentioned menu to copy over the data to a new sheet and chart it.

No problem with creating the menu or running the sub from it, it's the extraction of data that is bugging me.

The source data is a single column of dates.

I want the chart to reflect Month-Year across the X and the number of times that that month-year occurred in the column of data on the Y.

Presently I am copying the column of dates to the chart sheet, extracting the month of each data element (cell) to one column, doing the same for the year to another column, then in yet another column running a "Countifs" for the occurrences for the times each month & year occur in the two columns created for those counts, then creating a column chart on that.

I highly suspect there is a much more elegant method to do this, but I hardly can think of it. My teen-age daughter's music blaring in the background isn't helping...

I am using DateAdd in these computations.

To get my starting point I run with:

Please Login or Register  to view this content.

Where intMinDate is the serial for the minimum ( MIN() ) date value in the range column of dates.

And for my incremental dates I use:

Please Login or Register  to view this content.

Where intMaxDate is the Serial for the date when the code is run.

That use of CDate was not needed, I threw that in when I was trying to track down a problem and was trying to eliminate possibilities.
(Forgive the convoluted Range designation in that above loop, my thinking was reeling from too many things of which to keep track!)