'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")
End Sub
downloadDownload PNG downloadDownload JPEG downloadDownload SVG

Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!

Click to optimize width for Twitter