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?