Sub testit()
Dim dpr As DocumentProperty

On Error Resume Next
For Each dpr In ActiveWorkbook.BuiltinDocumentProperties
Select Case dpr.Name
Case "Creation date", "Last save time": MsgBox dpr.Name & ": " &
dpr.Value
End Select
Next
End Sub

Rob

"SUNIL" wrote in message
...
Hi ,

is it possible to get an open excel file's attributes via macro e.g last
modified date or created date.

Thanks