A worksheet change function

Private Sub Worksheet_Change(ByVal Target As Range)

If StrComp(StrConv(Target, vbUpperCase), "TRUE") = 0 Then
Worksheets("sheet1").Range("A1") = Worksheets("sheet1").Range("A1") + 1
End If
If StrComp(StrConv(Target, vbUpperCase), "FALSE") = 0 Then
Worksheets("sheet1").Range("A2") = Worksheets("sheet1").Range("A2") + 1
End If
End Sub


"DTM" wrote:


I am trying to record the amount of time over the course of a day that
an excel formula is returning a given result e.g. "true" or "false"
My attempts at coding this in vb have proved very clunky, can anyone
think of a solution or know of a suitable programme that can be called
from excel?

TIA