copying colored cells
 

Hi,
I am trying to copy lots of cells to a new worksheet. These cells have their
font color red.(they happen to be table names). Tables do not have standart
rows, so i can use a for loop thing he( or at least can image how to set
it.
All I want to scan just A column, find red colored text and copy the text to
another workbook. Tried to to it manually but i happen to make mistakes:(

ps:as these are the table rows, they only have data in their Ax cells.
B,C,D.. are empty:)

note: Cannot filter to sort them out cause i will copy the table footers,
which contain prices. so cant kill the style:( a table looks like this:

table_name
product_name price stock total
product1 4 10 40
product2 3 5 15
product3 5 2 10

TotalSUM 65


I am trying to do is, to get a list in a new worksheet like,

A B
1 table_name1 TotalSUM1
2 table_name2 TotalSUM2
3


Thanx in advance