Didn´t Work! Put in cell Last Modified spreadsheet value

[FlavioRJ]

Hi!!
I´m still having problems with this...

I have 400 spreadsheets and they all were saved in some day (from Jan 1 till today)
The problem is that the date is set to the formula TODAY()... Now I fixed this...
But I would like those 400 spreadsheets do display in cell A1 for example the date it was modified for the last time... That column that appears in Windows Explorer..
Is there a way to obtain those values automatically?? Without looking and typing...

THANKS A LOT!!!

 

[Colo]

Hi FlavioRJ,

On 2002-05-09 17:49, FlavioRJ wrote:
Hi!!
I´m still having problems with this...

I have 400 spreadsheets and they all were saved in some day (from Jan 1 till today)
The problem is that the date is set to the formula TODAY()... Now I fixed this...
But I would like those 400 spreadsheets do display in cell A1 for example the date it was modified for the last time... That column that appears in Windows Explorer..
Is there a way to obtain those values automatically?? Without looking and typing...

THANKS A LOT!!!

So, please try this way.

<pre>
'Please put this code into Thisworkbook Module
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh.[A1].Value = Now
End Sub
</pre>