Send to different invoices. What does that mean

for each cell in Activesheet.UsedRange.specialCells(xlconstants)
select Case cell.Interior.ColorIndex
case 1
' send to invoice
case 2
' send to invoice
case 3
' send to invoice
case else
end Select
Next

--
Regards,
Tom Ogilvy

Skip Christensen wrote in message
...
My boss wants to select certain cells and code them with
color and have them sent to different invoices depending
on that color. Can I write some code or get it from
somewhere that will do that for me?

Thanks

SkipC