I am trying to have a sheet withing a workbook keep a log of who opens
a workbook and when. I believe I'm running into problems because the
workbook name has spaces in it. The code that I'm trying to use is

Private Sub Workbook_Open (file with spaces in it.xls)
Dim LastRow As Long
LastRow = Sheets("Log").Range("A65000").End(xlUp).Row
Sheets("Log").Cells(LastRow + 1, 1).Value = Now
Sheets("Log").Cells(LastRow + 1, 2).Value = Application.UserName
End Sub

And the error i receive when I try to use this code is

Compile error:

Expected: list separator or )

The other code I tried to plug in was

Private Sub Workbook_Open ("file with spaces in it.xls")
Dim LastRow As Long
LastRow = Sheets("Log").Range("A65000").End(xlUp).Row
Sheets("Log").Cells(LastRow + 1, 1).Value = Now
Sheets("Log").Cells(LastRow + 1, 2).Value = Application.UserName
End Sub

and the error I received was.

Compile error:

Expected: indentifier

I'm sure there is an easy solution to my little problem, but I've
just started fooling around with VBA and after searching for the last
couple of weeks I've admitted I need to ask for help. So, thank you
for any help any of you can send my way.

These kinds of events are built into excel--you can't change how they're
defined.

Just use this in your ThisWorkbook module:
Private Sub Workbook_Open()

But remember that if the suer doesn't save, then the changes to the log will be
lost.


wrote:

I am trying to have a sheet withing a workbook keep a log of who opens
a workbook and when. I believe I'm running into problems because the
workbook name has spaces in it. The code that I'm trying to use is

Private Sub Workbook_Open (file with spaces in it.xls)
Dim LastRow As Long
LastRow = Sheets("Log").Range("A65000").End(xlUp).Row
Sheets("Log").Cells(LastRow + 1, 1).Value = Now
Sheets("Log").Cells(LastRow + 1, 2).Value = Application.UserName
End Sub

And the error i receive when I try to use this code is

Compile error:

Expected: list separator or )

The other code I tried to plug in was

Private Sub Workbook_Open ("file with spaces in it.xls")
Dim LastRow As Long
LastRow = Sheets("Log").Range("A65000").End(xlUp).Row
Sheets("Log").Cells(LastRow + 1, 1).Value = Now
Sheets("Log").Cells(LastRow + 1, 2).Value = Application.UserName
End Sub

and the error I received was.

Compile error:

Expected: indentifier

I'm sure there is an easy solution to my little problem, but I've
just started fooling around with VBA and after searching for the last
couple of weeks I've admitted I need to ask for help. So, thank you
for any help any of you can send my way.

--

Dave Peterson