use numbers with a certain formate and not the rest (text or empty rows) for search loop

Hey there,

another question for you guys:
This macro, I got from mike in this forum (thx again) works great but I need to modify it and don't know how exactly. I underlined the code I need to be different. I want the macro to search exactly how it does but to move on without printing any result if the content of the cell it finds with CellPtr is not a number like this:11-3401-9970-1-92.
So I want it to yump over text or empty rows without doing anything but continuing with the next number.

Please Login or Register  to view this content.

Can anyone help me out here???

Is there any chance do do somethign like this:

Please Login or Register  to view this content.

Please help!