You are welcome. I did make one more code variation. In this one,
the "Log Out" cell will accept a time entry only if the "Log In" cell has data in it.
The two time columns must be adjacent for this to work.
It may or may not be a better fit for you.
'------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target(1), Me.Columns("C")) Is Nothing Then
If Len(Target(1).Value) = 0 Then
Target(1).Value = Time
Cancel = True
End If
ElseIf Not Application.Intersect(Target(1), Me.Columns("D")) Is Nothing Then
If Len(Target(1).Value) = 0 And Len(Target(1)(1, 0).Value) 0 Then
Target(1).Value = Time
Cancel = True
End If
End If
End Sub
------
Jim Cone
Portland, Oregon USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"Bill"

wrote in message
Thanks again Jim. By the way, I decided to try just listing several columns
and only the time-in, time-out columns were empty. That seemed to work also
by inserting the time with just a double-click. This is greatly appreciated
and will really help a non-profit organization helping needy girls.
--
Bill HH