This place is great! User Log help required

Private Sub Log()


Open ThisWorkbook.Path & "\usage.log" For Append As #1
Print #1, Application.UserName, Now
Close #1

End Sub

However this prints the user log in a text file, I want it to print it on the same file being opened but on sheet 10 can you help ?

this code should do the trick, you need to decide where to put it, maybe on the workbook open event

code is as follows

Sub Log()
'
'
Dim LastRow
'find last row used in sheet10 log list
'
LastRow = Sheets("Sheet10").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Sheet10").Cells(LastRow + 1, 1).Value = Application.UserName
Sheets("Sheet10").Cells(LastRow + 1, 2).Value = Now

End Sub

HTH