VBa Dynamic Monthly Column Headings

Hi, I wonder whether someone may be able to help me please.

I'm currently using a sheet called "Monthly Profile" which has the following column headers from column B to Q.

Description

Resource

Nov 13

Dec 13

Jan 14

Feb 14

Mar 14

Apr 14

May 14

Jun 14

Jul 14

Aug 14

Sep 14

Oct 14

Nov 14

Dec 14

In additon, I display the current month in cell B3 on the same sheet in the format of "mmm yy".

The monthly column headings must be in the range of two months prior to the current month, and then a further 12 months from the current month.

In it's current form, every month I have to manually change the column headings to follow the aforementioned range.

I know from the research I've done that I could use as number of formulas to automate this task, but I was wonderiong whether someone may be able to offer some guidance on whether this could be done automatically within VB, which I can incoporate into a larger script which I use to populate the sheet.

Many thanks and kind regards

Hi @Chris53 thank you for taking the time to reply to my post and for the suggestion.

I was aware of the formula which can entered manually or automatically, but I just wondered whether there may be better alternative.

Kind Regards

Hi

Replace your select case with

Please Login or Register  to view this content.

See attached, I've also added some code to set up a new year in the on change event of "Desired Output" sheet and clear the output.

Regards
Ian