i've used something like this:

Sub test()
Dim ws As Worksheet
Dim lastrow As Long

Set ws = Worksheets("Sheet3")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
With ws
.Range("A" & lastrow).Offset(1).Value =
Environ("Username")
.Range("B" & lastrow).Offset(1).Value = Date
End With
End Sub

--


Gary

"PJFry" wrote in message
...
I like to log the users who open spreadsheets that I have developed. What
I
have done in the past is to run the code below to record the information
that
I need.

Dim Log As Range

'Set the range for the user log
Set Log = Sheet6.Range("A2")

'Find the first empty cell
Do Until IsEmpty(Log)
Set Log = Log.Offset(1, 0)
Loop

'Record user name and time opened
ActiveCell.Value = fOSUserName()
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Now()

'Save the changes
ActiveWorkbook.Save


The workbooks I have typically developed are summary in nature and do not
take up much more than half a meg. This process would run and there would
a
very small delay and the user didn't know there was anything happening.
(The
fact that I capture this data is common knowlege though.)

We just upgraded to Excel 2007 and I have started to develop larger
workbooks that I want to track. The lag is enough that it will start to
cause problems.

Is there a better way to do this? Can I write to an un-opened book or a
text-file?
I am open to any suggestions.

Thanks!
PJ