Hi Bernie

"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
Ian,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("$K$6").Value = "Time" Then
With Worksheets(1).Range("$M$8:$N$8")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=AND($K$8=0.1,OR($M$8<$K$8*0.9,$M$8$K $8*1.1))"
.FormatConditions(1).Font.ColorIndex = 3
End With
End If
End Sub

Thanks for this, it work a treat.

And you never need the same condition 3 times....

Sorry, I was still trying the coding out. I actually have 3 different
formulae for different values in K8. I hadn't got round the editing the 2nd
& 3rd.

--
Ian
--