Using VBA to return the color of a cell in another column

[kwaldersen]

I have a table of cells that are formatted in different colors, I am looking to return the color index of those colors into another table. If the table goes from A1:G10 and has different background colors, I would like to return a table of color indexes on another tab in A1:G10.

How do I do that?

[mehmetcik]

Sub test()
Myrange = Range("A1").CurrentRegion.Address
If InStr(Myrange, ":") = 0 Then Exit Sub
T = Split(Myrange, ":")

For c = Range(T(0)).Column To Range(T(1)).Column
For r = Range(T(0)).Row To Range(T(1)).Row
Sheets("Sheet2").Cells(r, c).Value = Cells(r, c).Interior.Color
Next
Next
End Sub