record changes to a worksheet - (2)

[BebeM]

@ Joe4
I recently used one of your codes:

"Private Sub Worksheet_Change(ByVal Target As Range)

' Log "UPDATE" to bottom of Log sheet whenever change made to BOB sheet
Dim lr As Long
' Find last row in column A on Log sheet with data
lr = Sheets("Log").Cells(Rows.Count, "A").End(xlUp).Row
' See if current value in that cell is "UPDATE"
If Sheets("Log").Range("A" & lr).Value = "UPDATE" Then
' Do nothing -- changes have already been flagged for updating
Else
' Put "UPDATE" in next available row in column A on Log sheet
Sheets("Log").Range("A" & lr + 1).Value = "UPDATE"
End If

End Sub"


and we thank you for it.
Can I ask if it’s possible to insert another column on Log sheet (meaning, User+date+cell name)?

I tried adding
Sheets("Log").Range("C" & lr + 1).Value (E.G., I want to add Description)
and I get an error

your help is appreciated

 

[Joe4]

Please post your actual code so we can analyze it?
Please be sure to use code tags when posting your code for readability.
See: How to Post Your VBA Code