HI,
I have the following VBA code to add a username to a certain cell in column AL if there is any changes has been done in column AA
it was working, but now it seems it is not working, Please help
I have the following VBA code to add a username to a certain cell in column AL if there is any changes has been done in column AA
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
If Not Intersect(Target, Range("AA:AA")) Is Nothing Then
Application.EnableEvents = False
For Each rngCell In Target
Target.Offset(0, 11).Value = Environ$("USERNAME")
Next rngCell
Application.EnableEvents = True
End If
End Sub