sorry you will need to delete the

ActiveSheet.Protect

line i forgot to remove it from code i use (unless you want to protect sheet
then leave it in and enter

ActiveSheet.unProtect

just above the range line




"Rich Mcc" wrote:

you could put a pic (small clock ect) in the cell you want the time to be
logged and link it to the macro below,, this will insert the time in place of
the pic (means only have to click to enter the time)

Sub enter_time()
Dim sAddress As String
sAddress = ActiveSheet.Shapes(Application.Caller).TopLeftCell .Address(0,
0)
Range(sAddress).Select
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Selection.NumberFormat = "hh:mm"
ActiveSheet.Shapes(Application.Caller).Delete

End Sub




"alexfthe" wrote:

I have a spreadsheet that crunches averages, deviations, and such for running
times of scenes, acts, and entire performances of theatrical productions
based on start and end times for each unit of the production. However, it is
very difficult for a stage manager to constantly enter the time while calling
cues--I have found the control shift semicolon shortcut, but would prefer a
function that updates itself on the return key, allowing a single keystroke
to both update a field and advance to the next one. Is there a way to do
this?