Archive of Mr Excel Message Board

Back to Dates in Excel archive index
Back to archive home

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

Re: Adding the last modified date into a Excel 2000 worksheet?

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

Nobody can help me with this?

Re: Adding the last modified date into a Excel 2000 worksheet?

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

This archive is from the original message board at www.MrExcel.com.
All contents © 1998-2004 MrExcel.com.
Visit our online store to buy searchable CD's with thousands of VBA and Excel answers.
Microsoft Excel is a registered trademark of the Microsoft Corporation.
MrExcel is a registered trademark of Tickling Keys, Inc.