Column insert before Max

[gheyman]

Is there a way to code the insert of a column infront of a cell that has the "Max" value for a range of cells?

Example if MAX(CB5:EH5) results in cell EH5 having the largest value in it to insert a column infront of column EH.

Thanks!

And a happy thanksgiving to you and yours!

 

[Von Pookie]

Try:

Sub test()
Dim myRng As Range, MaxCol As Integer

Set myRng = Range("CB5:EH5")

MaxCol = myRng.Find(Application.Max(myRng)).Column

Columns(MaxCol).EntireColumn.Insert shift:=xlToRight

End Sub