A Range in an Array causing macro to fail

I'm working on a project where I need to match up names in the same row but in 2 different columns. A have a macro written to work the way I want. I'm using names from Column D in an array and using the find function to match names in Column A. The successful find results is placed in Column B.

Presently, I'm adding the names from Column D into the array manually. I have tried adding these programmatically, but the macro fails.

Hoping someone will spot where I'm going wrong.

Please Login or Register  to view this content.

Thanks
Mister P

If you only whish to match names perhaps a code like this will do?

Please Login or Register  to view this content.

Alf