Creating a User Log

[gruhnelliot]

I have a VBA in this workbook (pictured below) that generates a user log each time a user logs in. Column A displays the username. Column B displays the date and time. I would like for column C to show which worksheet they accessed. Is this possible?

I attached the VBA underneath the photo.

Dim wksuserlog As Worksheet
Dim lngnextrow As Long


On Error Resume Next
Set wksuserlog = ThisWorkbook.Worksheets("User Log")

On Error GoTo ExitProc
If wksuserlog Is Nothing Then
Set wksuserlog = ThisWorkbook.Worksheets.Add
wksuserlog.Name = "User Log"
wksuserlog.Range("a1:b1").Value = Array("Username", "Date_time")
End If

With wksuserlog
lngnextrow = .cells(.Rows.Count, "a").End(xlUp).Row + 1
.cells(lngnextrow, "a").Value = Environ("Username")
.cells(lngnextrow, "b").Value = Now()
.Columns("a:b").AutoFit

 

[VBE313]

you could do a worksheet.activate event, and then do a With Sheets("User Log")

Worksheet.Activate event (Excel)

Office VBA reference topic

docs.microsoft.com