Hi! I´m making a macro on Excel 2003 and i have to find how to show the date
of the last modified in a workbook. Someone can help me?

Hi

ActiveWorkbook.BuiltinDocumentProperties("Last Save Time").Value

--
When sending mail, use address arvil<attarkon.ee
Arvi Laanemets


"nina" wrote in message
...
Hi! I´m making a macro on Excel 2003 and i have to find how to show the
date
of the last modified in a workbook. Someone can help me?

Using VBA


Function DocProps(prop As String)
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocument*Properties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell
=DOCPROPS("last save time")
(format cell as date)


This is a custom UDF, so you need to place the code in a normal code module.



--

HTH

RP
(remove nothere from the email address if mailing direct)


"nina" wrote in message
...
Hi! I´m making a macro on Excel 2003 and i have to find how to show the
date
of the last modified in a workbook. Someone can help me?