dunndealpr,

Just copy SNB's code above, and paste it in the same module after Rick's code (after the last line of course).

The instead of =GetEMailAddress(D1), use =F_snb(D1)

Of course you can rename the name of the function to anything you want if needed.