Findnext not working

I can't seem to get the findnext to work. I can find the first instance but none after that. Here's my code. Can anyone help me? Thanks.

Please Login or Register  to view this content.

It looks like you are not setting B in you Do Loop

try changing

B = Sheets(SheetNumb).Cells.FindNext(B)

to

Set B = Sheets(SheetNumb).Cells.FindNext(B)

Yup. that was it. Thanks.