VBA Code to create an audit trail in Excel 2010

[Confused_UK]

Hi all

I am looking for some VBA code to record any changes to a workbook in one worksheet called "ChangesLog".

Ideally I would like it to show the name of the individual making the change, the date and timestamp of the change, which cell in which worksheet has been changed, and the old and new values, but in a table.

I have found the code below which works very well, but would like it broken into individual cells. Does anyone have any ideas?

[COLOR=#000000][FONT=Verdana]Dim PreviousValue[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> PreviousValue Then
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
Application.UserName & " changed cell " & Target.Address _
& " from " & PreviousValue & " to " & Target.Value & " at: " & Time & " on: " & Date
End If
End Sub[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
End Sub[/FONT][/COLOR]

Thank you in advance

 

[Confused_UK]

I'm back again. The original value doesn't seem to be recognised in the script

 

[Confused_UK]

All sorted. Thank you once again

 

[dchaney]

What was the issue incase others run into it and what did you do to resolve it?

 

[Max11]

I realize this is a longshot because this thread is old but I'm having a similar issue with the code pasted here in that the old value isn't being pulled in. Does anyone know how to fix this?