Hi,

The following discussion really helped me to get the CellColorIndex
working... still not sure what I was doing wrong but this sorts it...

http://groups-beta.google.com/group/...1b572a5734531f

Anyhoo- this will only give the colour of a defined cell (in this case
A1...) is there a way to get the cell to the left (i.e. cell M3 in the
exmple I tried below)

Range("L3").ValueR1C1 = CellColorIndex(RC[-1], False)
I have played around with it for ages to no avail.

Many thanks

= CellColorIndex(Range("M3").Offset(0,-1)

is this what you mean?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"solomon_monkey" wrote in message
ups.com...
Hi,

The following discussion really helped me to get the CellColorIndex
working... still not sure what I was doing wrong but this sorts it...


http://groups-beta.google.com/group/...1b572a5734531f

Anyhoo- this will only give the colour of a defined cell (in this case
A1...) is there a way to get the cell to the left (i.e. cell M3 in the
exmple I tried below)

Range("L3").ValueR1C1 = CellColorIndex(RC[-1], False)
I have played around with it for ages to no avail.

Many thanks

Sub test()
Dim C%, A$
C = Range("M3").Offset(0, -1).Interior.ColorIndex
A = Range("M3").Offset(0, -1).Address(False, False)
MsgBox A & " = " & C
Range(A) = C
End Sub

???--Lonnie M.