Try,

Cells(1, WorksheetFunction.Match("STOCK CODE", Rows("1:1"),
0)).EntireColumn.Insert
Cells(1, WorksheetFunction.Match("STOCK CODE", Rows("1:1"), 0)).Offset(,
-1).Select

Mike

"pol" wrote:

I created a new column using the following formula

Cells(1, WorksheetFunction.Match("STOCK CODE", Rows("1:1"),
0)).EntireColumn.Insert

But I to goto to first cell of that new column which are created newly with
the above formula

Please help
Pol