Dim PreviousValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Errb As Integer
On Error GoTo ErrTrap:
If Target.Value <> PreviousValue Then
With Sheets("AuditLog").Cells(65000, 1).End(xlUp)
.Offset(1, 0).Value = Application.UserName
.Offset(1, 1).Value = Environ$("computername")
.Offset(1, 2).Value = "changed cell"
.Offset(1, 3).Value = Target.Address
.Offset(1, 4).Value = "To list referance to item code from column C"
.Offset(1, 5).Value = "To list referance to GRN from column B"
.Offset(1, 6).Value = PreviousValue
.Offset(1, 7).Value = Target.Value
.Offset(1, 8).Value = Now()
.Offset(1, 9).Value = ActiveSheet.Name
End With
End If
Exit Sub
ErrTrap:
ErrNum = Err
If ErrNum = 13 Then
'*** Multiple cells have been selected, treat them as one merged group*****
Resume Next
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
End Sub
Bookmarks