'Example use of the iColor function to get the background color of selected cells Sub Get_Background_Color_Selection_Cells() Dim Rng As Range For Each Rng In Selection.Cells Rng.Offset(0, 1).Value = iColor(Rng, "HEX") Rng.Offset(0, 2).Value = iColor(Rng, "RGB") Next End Sub