Option Explicit
Public flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Range('A1').Value = 1 Then
flag = True
Range('B1').Value = Time()
End If
If flag = True And Range('A1').Value = 0 Then
Range('c1').Value = Time() - Range('b1').Value
flag = False
End If
End Sub