NoSparks.
Sorry for not getting back sooner. I crashed and just recently woke up.
Works like a charm. My stumbling block was resolved by ***Range("A" & ActiveCell.Row)***

Thanks again ever so much. Hopefully nothing else will raise its ugly head, but I should be so lucky. Now I am hoping to put this all to work. Thanks again. Your assistance has been invaluable.