Find/move column by header

[doriannjeshi]

Hi,
I need to find a column with header named "example" and move this column to a specified column nr

 

[jolivanes]

Sub Maybe()
Columns(Rows(1).Find("example").Column).Cut
Columns(10).Insert Shift:=xlToRight
End Sub

 

[doriannjeshi]

Thank you Jolivanes

 

[doriannjeshi]

One more thing, can this be done to find the column closest to a1, as it is it starts from right to left and it's returning the wrong column since I have to columns named the same by default, I need the opposite.

 

[jolivanes]

Columns(Rows(1).Find("example", Cells(1, 1)).Column).Cut

Did you check that all the cells that have "example" do not have leading or trailing characters (maybe spaces)?