conditional formating if Teddy I

[Bob Phillips]

[vba]

With Range("B2", Range("B2").End(xlDown).Offset(-1, 0))
With .FormatConditions.Add(Type:=xlExpression, _
Formula1:="=VLOOKUP(RC[1],'[BusinessReportingReference.xls]Products'!R1C3:R9C12,9,FALSE)=""Teddy I""")
.Font.Bold = True
.Font.ColorIndex = 3
.Interior.ColorIndex = 8
End With
End With
[/vba]