Amendment to VBA code (Excel file open log history)

Good afternoon all,

I have a VBA code that i've taken from the web, that created a time stamp each time the excel file is opened, it takes the username, the date & time the file was opened, the problem is that this is all contained within a single cell,
Is it possible some one could amend the code so that:

• Username is contained within Column A
• Date is contained within Column B
• Time is contained within Column C.

Please Login or Register  to view this content.

Thank you very much for any replies.

NOTE: I have not attached an example workbook to this post as I do not think it would be necessary.

Yes, you probably don't need a workbook. But then I’m on an iPad so I can't test a solution anyway.

So, good luck, and try this:

Please Login or Register  to view this content.

Morning TMS, thank you for your response & apologies for the delayed reply.

I'm getting a debug error on the following line when implementing the code.

Private Sub Workbook_Open()
'Run from ThisWorkbook module.
Dim UserName As String
Dim lNR As Long
UserName = Environ("UserName")

With Worksheets("Open History")
.lNR = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & lNR).Value = UserName
.Range("B" & lNR).Value = Date
.Range("C" & lNR).Value = Time
End With

ActiveWorkbook.Save

End Sub

Sorry, remove the stop from in front of. lNR. It should be just lNR

Thanks for the rep.