Figured it out myself.
Used "Left" instead of "Vba.Left"

Thanks

"John Wilson" wrote in message
...
Does anyone know the correct coding to get this to work??

Column J has data beginning at row 6 in the format of 6 numbers;
Ex: 110001, 100001, 011000, etc.

As an example, this works:
r.Columns("A:A").FormatConditions.Add Type:=xlExpression, _
Formula1:="=$J6=""110001"""

What I'm trying to do (without any luck) is:

r.Columns("A:A").FormatConditions.Add Type:=xlExpression, _
Formula1:="=Vba.Left($J6,1)=""1"""

The above obviously doesn't work.

Any help would be appreciated.

Thanks,
John