re post #25 from snb,
his code worked for me, quite elegant.
data output to sheet2, added a fix for extra spaces throughout the address list,
added columns to the right and has the duplicate company items added there. nice work

about the error, be sure you have a sheet named "Sheet2" maybe