Welcome to VBForums

It seems somebody else has copied your code and question, here... I provided an answer there.