Hi Gord

Still did not work. But this does,As I couls already to date stamp I added
your bit after "environ

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("H1").Value = Environ("Username") & "" & " " _
& Format(ThisWorkbook.BuiltinDocumentProperties("Las t Save Time"), _
"dd-mmm-yy hh:mm")
Application.EnableEvents = True
End Sub
Many thanks
Stuart

"Gord Dibben" wrote:

Yes.........change sheet1 to your sheet name and adjust the range.

Are you not seeing the username of the logged in user?

A re-read of your original shows you want computer name, not username.

To get computer name..........not logged-in user.

Add these to a General module.

Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long


Public Function NameOfComputer()
' Returns the name of the computer
Dim ComputerName As String
Dim ComputerNameLen As Long
Dim Result As Long
ComputerNameLen = 256
ComputerName = Space(ComputerNameLen)
Result = GetComputerName(ComputerName, ComputerNameLen)
If Result < 0 Then
NameOfComputer = Left(ComputerName, ComputerNameLen)
Else
NameOfComputer = "Unknown"
End If
End Function

Then add to Thisworkbook module this new code. Editing sheet1 and range as
you wish.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = NameOfComputer() & " " _
& Format(ThisWorkbook.BuiltinDocumentProperties("Las t Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
End Sub


Gord

On Thu, 6 Aug 2009 08:56:02 -0700, Stuart WJG
wrote:

I have put the below in the worksheet but only get the date. I presume in the
sheet is named ENQUIRY i replace "sheet 1" below with "ENQUIRY" and change
the range to whatever call i want the info

Stuart

"Gord Dibben" wrote:

Where would like to see this information?

This code placed into Thisworkbook module will put the info in a cell.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = Environ("Username") & " " _
& Format(ThisWorkbook.BuiltinDocumentProperties("Las t Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
End Sub


Gord Dibben MS Excel MVP


On Thu, 6 Aug 2009 06:42:08 -0700, Stuart WJG
wrote:

I would like to date stamp spreadsheet any time it is updated along with user
name of computer doing it
cheers Stuart