PrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)

Cells.FormatConditions.Delete

WithTarget.EntireColumn

.FormatConditions.AddxlExpression,,"=true"

.FormatConditions(1).Interior.ColorIndex=23

EndWith

WithTarget.EntireRow

.FormatConditions.AddxlExpression,,"=true"

.FormatConditions(2).Interior.ColorIndex=27

EndWith

End