Is this procedure fast?

any other code?

Thank you,
Arie.