Copy and Insert a Column

[Guzzlr]

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 next to another column heading. However, for this work sheet, It's simply skipping over it, as if it does not exist.
any thoughts on the subject
Thanks

 

[Guzzlr]

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 next to another column heading. However, for this work sheet, It's simply skipping over it, as if it does not exist.
any thoughts on the subject
Thanks

OK, I found why it's not working. I have two spaces before and after "Team". whe I changed it to: " Team ", it works.
thanks