Revisorspor i Excel

Option Explicit
Dim Previous As String
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Previous = Target.Formula
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Log" Then Exit Sub
    Application.EnableEvents = False
    On Error Resume Next
    With Sheets("Log").Cells(Rows.Count, 1).End(xlUp)
       
        .Offset(1, 0).Value = Environ("UserName")
        .Offset(1, 1) = Sh.Name
        .Offset(1, 2) = Target.Address
        .Offset(1, 3) = "'" & Target.Formula
        .Offset(1, 4) = Previous
        Previous = ""
        .Offset(1, 5) = Now
    End With
    Application.EnableEvents = True

End Sub