PATTERNCOLORINDEX identification sub?

[ChrisOK]

I'm using this code and need to change the color. Is there a short chunk of vba code (Sub) I can use to identify other cells individually to find out the code equivalent?

I've found cross refc charts such as these Color Palette and the 56 Excel ColorIndex Colors that show RGB color numbers 1-56, etc but I'm needing one that will show the below types of colors... "3407820"

EXAMPLE USAGE: I'd like to be able to open an blank sheet, use the normal color fill chart to colorized a cell then run the vba sub to have it tell me what the code equivalent would be to get a code like the one below...

    Range("D2:D1000").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$B2<$D2"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 3407820
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True