Hello All...
I have another issue.
Set Fnd = Range("4:4").Find("Bureau", , , xlWhole, , , False, , False)
If Not Fnd Is Nothing Then
Intersect(Range("4:5000"), Fnd.EntireColumn).Cut
Range("M4").Insert shift:=xlToRight
End If
What if the word "Bureau" is...