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:

Sub Locate()
Dim rFound As Range

Set rFound = Rows("8:8").Find("This Year")
 ActiveCell.EntireColumn.Insert

If Not rFound Is Nothing Then MsgBox rFound.Column

End Sub

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.

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

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:

Sub Insert_Label()

‘   insert 12 columns and label

    Dim myColumn As Long
    Dim myCol As Long


'   Find the phrase "This Year"
    Cells.Find(What:="This Year", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
'   Capture column where this resides
    myColumn = ActiveCell.Column
    
'   Insert 12 blank columns to the left of this column
    Range(Cells(8, myColumn), Cells(8, myColumn + 11)).EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    
'   Populate row 8 with month numbers
    For myCol = 1 To 12
        Cells(8, myColumn + myCol - 1) = Format(DateSerial(2000, myCol, 1), "mmmm")
    Next myCol
    
End Sub

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