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
Sub
