VBA?

iLastRow = Cells(Rows.Count).End(xlUp).Row
For i = 1 To iLastRow
Cells(i,"C").Interior.Colorindex = Cells(i,"A").Interior.Colorindex
Next i

this copies the colour from A to C

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Francois via OfficeKB.com" <u18959@uwe wrote in message
news:5e1167fa013d5@uwe...
Hi all,
Doe's anyone know if a function/addin etc exists that will enable me to
get
the background color from a cell and then copy it to the current cell

eg someting like in sheet 1 cell A put the formula
=backgroundcolor(sheet2!
A1) then replicate to other cells

I can't use the normal method of copy/paste special as I need to do it for
a
LOT of cells

Lotus 123 used to have an addin called @setstyle ....I'm after
something
similar

Thanks to all who have helped me on previous posts.....even if you didn't
know you had !

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200603/1