I removed the .Address from the code lines for each .Find and extended the search range to include the Object and it now works.

Thank you for your help.