Alter Matching Sub From matching two Ranges to matching one range and list

I have this Match Sub which I use but want to alter

Please Login or Register  to view this content.

Trying to alter so that

Set FindRng = .Range("AA2:AA" & lRow2)

become a list

aryFind = Array("Bounced", "NotStarted", "Incomplete", "AddedName")

But I am not getting the For loop

Please Login or Register  to view this content.

to work I do not get all the matches I should be getting

Thanks

Please Login or Register  to view this content.

I solved it this way

Please Login or Register  to view this content.

Please Login or Register  to view this content.