Private Sub Workbook_Open()
Dim iLast As Long
With Worksheets("Sheet1")
iLast = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
If iLast = 2 Then
If .Range("A1") = "" Then
iLast = 1
End If
End If
.Range("A" & iLast).Value = Format(Now, "dd mmm yyyy hh:mm:ss")
End With
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

--
HTH

Bob Phillips

"John" wrote in message
...
Is it possible to Time stamp a sheet to indicate everytime a worksheet has
been opened?

I have a file which users should be using daily, but I suspect they are
not
(although they tell me they are!) so I was wondering if I could build a
database within that file that would timestamp an area of a worksheet
every
time the file was actually opened (as opposed to everytime it was saved,
as
they might not have to save it everytime), say A1 in Sheet1, so the second
time they access/open the file in would stamp A2 in Sheet1 etc etc

Hope someone can help