Paste Only Visible Cells, Comma Delimited

[ATLGator]

Hello,

I am working on a file that lists a series of product codes, some of which are grouped together. I am trying to put together a macro that will allow you to select a range of codes within a column and have those codes pasted only the visible cells into a Word document, with each code separated by a comma. So far, I have been able to accomplish most of the task - I can have the selected cells sent over to word, comma-delimited, but I cannot get the macro to operate on visible cells only.

I have attached a sample file with code.

From the sample file, my desired result would be:
"Green,Blue,Yellow,Orange,Red,Black,Brown"

However, while making modifications, I have only been able to get:
"Green,Blue,Yellow,Orange,Red,Red,Red,Red,Red,Black,Brown", and
"Green,Blue,Yellow,Orange,Red"

Please let me know if you have any suggestions.

Thanks!

[ATLGator]

BTW, the first undesireable string of colors came from using:

Please Login or Register  to view this content.

The second undesireable string of colors came from using:

Please Login or Register  to view this content.

[xladept]

Hi Gator,

Try it this way:

Please Login or Register  to view this content.

[ATLGator]

xladept - thanks for the code. It worked perfectly for the example I posted, and I was able to adapt it for my real data.

[xladept]

You're welcome!