'Formatting for a P&L cell
Sub PnLFormat(PnLRange As Range)
With PnLRange
'Add Condition 1 - Green; (>0)
.FormatConditions.Add(XlFormatConditionType.xlCellValue, XlFormatConditionOperator.xlGreater, 0)
.FormatConditions(1).Interior.Color = RGB(0, 128, 0) 'Green
.FormatConditions(1).font.colorindex = 2
.FormatConditions(1).font.bold = True
'Add Condition 2 - Red; (<0)
.FormatConditions.Add(XlFormatConditionType.xlCellValue, XlFormatConditionOperator.xlLess, 0)
.FormatConditions(2).Interior.Color = RGB(153, 0, 0) 'Dark Red
.FormatConditions(2).font.colorindex = 2
.FormatConditions(2).font.bold = True
End With
End Sub