Solved: Excel VBA Translation Help

[exodius]

Hi,
Can someone help me with how to translate this correctly? I've been working on it for a few hours and I just can't quite get it right.

Columns("G:G").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=""Purchase"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
    .Color = -16383844
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

I think I'll be fine after the .Add line, I just cannot get it to work. Here's what I've been trying:

$oExcel.Selection.FormatConditions.Add(9, 3, "=""Purchase""", '') ;Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Purchase"""

Any help is definitely appreciated!

Edited March 4, 2016 by exodius

[exodius]

I realized that I had the wrong constant for xlCellValue - I should have had 1