We are looking for a way to program a cell(s) to post the current time when a
certain action is done. The idea is like a time clock for our employees to
record start times and ending times. It will then be used by other worksheets
within the workbook to record employee payroll and other information for our
business. ( ex. one keystoke to record current time)

Sub InsertTime()
With ActiveCell
.NumberFormat = "hh:mm:ss"
.Value2 = Time
End With
End Sub

more logical would be to avoid dependency on activecell
and make it ready to be called as a subroutine..

Sub InsertTime2(rng as range)
With rng.cells(1)
.NumberFormat = "hh:mm:ss"
.Value2 = Time
End With
End Sub

HTH


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


donscarwash wrote :

We are looking for a way to program a cell(s) to post the current
time when a certain action is done. The idea is like a time clock for
our employees to record start times and ending times. It will then be
used by other worksheets within the workbook to record employee
payroll and other information for our business. ( ex. one keystoke to
record current time)