Set Fnd = Range("6:6").Find("Team", , , xlWhole, , , False, , False)
If Not Fnd Is Nothing Then
Intersect(Range("M6:M5000"), Fnd.EntireColumn).Copy
Range("O6").Insert Shift:=xlToRight
End If
Hello All
I've used the above code to find a column heading, copy and insert it into or...