Private Sub Workbook_Open()
Open "C:\mylogfolder\usage.log" For Append As #1
Print #1, Environ$("userName"), Now
Close #1
End Sub
or
Private Sub Workbook_Open()
Open "\\server\sharename\foldername\usage.log" For Append As #1
Print #1, Environ$("userName"), Now
Close #1
End Sub

Red wrote:

The below is a macro I copied from one of the postings. The macro
works great, however the file "usage.log" saves in the same directory
as the workbook.
Can anyone tell me how I can save the "usage.log" to another directoy?

Private Sub Workbook_Open()
Open ThisWorkbook.Path & "\usage.log" For Append As #1
Print #1, Environ$("userName"), Now
Close #1
End Sub

--

Dave Peterson