'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "A1:B1"

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If .Column = 1 Then
Me.Cells(.Row, "C").Value = "START"
Me.Cells(.Row, "D").Value = Time
Me.Cells(.Row, "D").numberform = "hh:mm:ss"
Else
Me.Cells(.Row, "C").Value = "STOPPED"
Me.Cells(.Row, "E").Value = Time
Me.Cells(.Row, "E").numberform = "hh:mm:ss"
Me.Cells(.Row, "F").Value = Me.Cells(.Row, "F").Value + _
Me.Cells(.Row, "E").Value - Me.Cells(.Row, "D").Value
Me.Cells(.Row, "F").numberform = "hh:mm:ss"
End If
End With
End If
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"tweety127" wrote
in message ...

hi,please help me with this:
im doing a real time tracker, if i click on the cell A1, cell C1 will
display the status START and cell D1 will display the current time only
and when i am done, i will click on cell B1 and cell C1 will display the
status STOPPED and cell E1 will display the current time only and cell
F1 will display the total time consumed from D1 and E1, and when i
decide to continure my work i want F1 to be updated with the current
time consumed.....how will do this?....please help me...i really need
this to run....thanks so much:(


--
tweety127
------------------------------------------------------------------------
tweety127's Profile:
http://www.excelforum.com/member.php...o&userid=34673
View this thread: http://www.excelforum.com/showthread...hreadid=568006