Im wondering if there is a way to create a private sub to identify someone
who has opened a spreadsheet, by the windows login ID, and also get the time
and date that the spreadsheet was opened. Id like to copy/paste this
information to a Word document (or a text file), which could be located on
the C-drive. Ideally, Id like to create a running log of all instances of
users opening the spreadsheet, so the 2nd, 3rd, 4th, etc. users would have to
be appended to the Word document so that the original time stamps were not
overwritten.

I have a time stamping macro, but everything is done right in Excel, not
outside of Excel.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$A$1:$b$400")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Sheet2")
.Select
.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Target.Address
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Target.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Now()
ActiveCell.NumberFormat = "mm/dd/yy"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = InputBox("You've made a change to the Rates tab.
Please enter your name here for historical purposes.")
Application.EnableEvents = True
Application.ScreenUpdating = True
End With
End If
End Sub

How can I send this data to an external destination and append new instances
of users opening the file?


Regards,
Ryan--



--
RyGuy