Can't think tonight - for a friend, can you help?
 

Helloooo....

I'm sure there's an easy way to get what we need, but I can't figure it out.

I would like a cell formatted to reflect the last date a revision was made
to our spreadsheets.

We don't need to track the changes that were made, just the date of the last
revision.


Is this possible?



Thanks for your help.
Cheryl

Can't think tonight - for a friend, can you help?
 

One cell on each sheet, or just one cell for the whole workbook?

Are you OK with just tracking the fact that one or more changes have
been made, even if the changes were later (before saving) undone?

Try placing this in the "Thisworkbook" module. Adapt to suit.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim sVal As String
Static bProcessing As Boolean

If bProcessing Then Exit Sub

If Target.Cells.Count = 1 Then sVal = " New value " & Target.Value
bProcessing = True
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = _
Format(Now, "mmm dd yyyy:hh mm ss") & " " & _
Sh.Name & " " & Target.Address & sVal
bProcessing = False



End Sub




Tim.

"a" wrote in message
ink.net...
Helloooo....

I'm sure there's an easy way to get what we need, but I can't
figure it out.

I would like a cell formatted to reflect the last date a revision
was made
to our spreadsheets.

We don't need to track the changes that were made, just the date of
the last
revision.


Is this possible?



Thanks for your help.
Cheryl