Conditional Formatting code not working

Originally Posted by StephenR

But how do you get past this line without an error!?

Set texttime = Sheet1("b9")

Ha, who knows!? There's something wrong with it?

So far then, Ive got this:

Private Sub EOBTCondition()

Dim Rng As range
Dim texttime As range

If Rng Is Nothing Then
Else
End If
Exit Sub

Set Rng = range("b2:b200")
Set texttime = Sheet1("b9")
For Each cell In Rng
Select Case cell - texttime <= 200
    cell.Interior.ColorIndex = 6
End Select
Next

End Sub

I still get the same error and I'm wondering, perhaps this code should be based on worksheet_change becuase I need it to update automatically....the value in 'texttime' is updating every few minutes when excel recalculates.