Track Changes

[danjw_98]

I am using the below code but was hoping there was a way to either keep the history sheet always visible or have the changes logged on a different worksheet. thanks...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs , , , , , , xlShared
.KeepChangeHistory = True
.HighlightChangesOptions When:=xlAllChanges
.ListChangesOnNewSheet = True
.HighlightChangesOnScreen = False
.Worksheets("History").Select
End With

End Sub

 

[danjw_98]

I found the below macro that seems to work but was wondering if there was a way to also capture the info from col a - col b - col c to include with the old and new value. thanks.

Dim PreviousValue
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
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
End Sub