Macro to create columns by referencing a variable column

I've only done a small amount of macros with VBA.

I want to create a macro to insert 12 cells left of a column labeled "This Year"
As the spreadsheet grows (by 12 columns @ year) the "This Year" column moves to the right. Thus I need to reference the range off of that column and then insert 12 columns directly to the left of it each year. Can I somehow reference the label "This Year"?

I then need to enter the month labels in the new columns row 8.

My problem is trying to reference off the "This Year" column.

Can someone help me out with this?

Thank you!!!
Mike

Okay I tried this:

Please Login or Register  to view this content.

It did insert a column - except in inserted it left of column #8, while the label "This Year" is in column 17.

What am I doing wrong?

Thanks,
Mike

This macro inserts 12 columns to the left of "This Year" cell.

Sub Macro()
Dim Frng As Range
Set Frng = Cells.Find("This year")
Range(Frng, Frng.Offset(0, -12)).EntireColumn.Insert
End Sub

Originally Posted by kvsrinivasamurthy

This macro inserts 12 columns to the left of "This Year" cell.

Please Login or Register  to view this content.

Thank you for taking the time to reply.

I used your code, and it does insert columns (I changed the -12 to 11, as it was inserting 13 columns), however the columns are inserted about 8 columns left of the "This Year" column. I'm not sure what controls the placement.

I'll attach a sample file with the macro.

Thanks for taking a look at this again,
Mike

I've played with this some more and found it I set the Offset to (, -2), 3 columns are inserted directly to the left of "This Year"
If I set the Offset to (, -3), 4 columns are inserted beginning with the second column to the left. (Skips one over)
As I add to the column offset, more columns are skipped and then the columns are inserted.

What would cause the offset code to skip over several columns before inserting?

Thanks again,
Mike

Problem solved with this code:

Please Login or Register  to view this content.

Now I just have to figure out how to have the month labels abbreviated (Jan, Feb, Mar) etc . ..