Thanks. I fixed it, now I have an object variable or with variable not
set. This is the text that is coming back highlighted.

..Columns("H:H").Find(What:="Balance", LookAt:=xlWhole).Offset(1).Copy
Dest.Offset(, 3)