Insert a Missing Word to Find

[Guzzlr]

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 not in the Range to Find? How can I have excell automatically insert the word "Bureau", then continue with the Cut/Insert?
Thanks for the help
excel 2013

 

[Fluff]

Where would you insert it?

 

[Guzzlr]

Where would you insert it?

If it were missing, it would be best to insert it beyond AK4, then the find would find it, and insert on M4
Thanks

 

[Fluff]

Rather than inserting it in what I presume is a blank column, why not just do

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
 Else
    Range("M4").EntireColumn.Insert
    Range("M4").Value = "Bureau"
End If

 

[Guzzlr]

Rather than inserting it in what I presume is a blank column, why not just do

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
 Else
    Range("M4").EntireColumn.Insert
    Range("M4").Value = "Bureau"
End If

This is smart...I'll try it and report back. Thank you

 

[Guzzlr]

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
 Else
    Range("M4").EntireColumn.Insert
    Range("M4").Value = "Bureau"
End If

This looks like it is working, I can use this logic on all the FND's in the code!
Thank you!

 

[Fluff]

Glad to help & thanks for the feedback