Adding the last modified date into a Excel 2000 worksheet?

Posted by Fred on July 03, 2001 6:24 AM

Does anyone know if this can be done? I have tried reading the help and searching at google but only found macros that are for older versions.

Thanks in advance!

Fred

Posted by Fred on July 05, 2001 9:08 AM

Nobody can help me with this?

Posted by Stronky on 4/16/2004 11:05 AM

Use this code:

Sub DocumentProperties()
On Error Resume Next
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
    Cells(rw, 1).Value = p.Name
    Cells(rw, 2).Value = p.Value
    rw = rw + 1
Next
End Sub

Sub DocumentPropertiesLastModified()
Dim a As String
'Worksheets(1).Activate
a = ActiveWorkbook.BuiltinDocumentProperties.Item(12)
Cells(3, 3).Select
ActiveCell.FormulaR1C1 = a
Cells(2, 3).Select
ActiveCell.FormulaR1C1 = "datum last modified:"
End Sub