Tracking my employee's history of changes.

Hi Peter,
Thanks for answering...
I am a newb at Excel and only use it at its basics. In this circumstance logging customer sales entries, there are no functions except data (totals etc.) that we will use at a later time tallying. Previously, we have always entered things in a paper book and then transferred all the entries into Excel. So I bought a laptop for the business and want to enter the info directly into the Excel (it'll save us a whole lot of work later too). Potential employee theft is the only the problem (eg changing a price and service after they entered it knowing the client has left and no one knows the service performed since the bosses weren't around the whole time----they might very well erase the whole line.)

Typical day would start with a new "book" in Excel.
Line 1: (Titles from column A to G) [CUSTOMER,PHONE,SERVICE PERFORMED,TOTAL PRICE, PAYMENT TYPE,TIPS,INSTRUCTIONS]
Line 2: (1st customer information entered)
Line 3: C: (room for more instructions for 1st customer)
Line 4: (2nd customer information entered)
Line 5: C (room for more instructions for 2nd customer)
etc..

Now, I figure the employee or I would just save "the book" at close.
Next day start anew with a new "book".

---whew!...I hope you got through that.

So can you help me with this "hidden log". I haven't a clue.
Thanks again Peter,
Tom in Toronto, Canada
PS- do you recommend that we open a new "book" per business day or add dates and do it by month? (i'm not sure if the "hidden log" works continuously or a new one per day)
PPS-I apologize for my newbiness!

Click to expand...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long
If Sh.Name = "Log" Then Exit Sub
Application.EnableEvents = False
With Sheets("Log")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & LR + 1).Value = Now
    .Range("B" & LR + 1).Value = Sh.Name
    .Range("C" & LR + 1).Value = Target.Address(False, False)
    .Range("D" & LR + 1).Value = Target.Value
End With
Application.EnableEvents = True
End Sub

• Date and time in column A
• Sheet name in column B
• Cell address in column C
• Cell value in column D