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.