In addition

You might want to change ActiveWorkbook.Application.UserName to

Environ("UserName") which returns the login name.


Gord


On Tue, 12 Jun 2007 10:07:03 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

Have a look at the rest of the thread for possible revisions.

http://tinyurl.com/2bnsjv


Gord

On Tue, 12 Jun 2007 09:09:02 -0700, CLR wrote:

Here's a neat little ditty that Gord Dibben posted awhile back....

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 0
On Error Resume Next
Dim curComment As String
curComment = ""
curComment = Target.Comment.Text
If curComment < "" Then curComment = curComment & Chr(10)
Target.AddComment
Target.Comment.Text Text:=curComment & _
ActiveWorkbook.Application.UserName & _
Chr(10) & " Rev. " & Format(Date, "yyyy-mm-dd ") & _
Format(Time, "hh:mm")
ActiveCell.Comment.Visible = False
'comment perhaps should be resized
End Sub

Vaya con Dios,
Chuck, CABGx3


"Beans" wrote:

Is there a function similar to NOW() that will show which user last made
changes to a file?