Wow, that was fast. Thank you.

I am getting a debug error based on

set rng = cell.Find(What:=res, _
After:=Range("IV65536"), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
The Cell I am looking for will always be in Column B.
Once I find it, I want to name the active cell, "MyCell" and run from
there.

Any suggestions?