To put the Last saved information into the Active Cell...

Sub test()
Dim objProperty As Object

On Error Resume Next

For Each objProperty In _
ActiveWorkbook.BuiltinDocumentProperties
With objProperty
If .Name = "Last save time" Then
ActiveCell.Value = .Value
End If
End With
Next

End Sub

HTH,
Gary Brown

"sharock" wrote:

I need to insert the last saved (last updated) date into my excel sheet. Is
there a way to do this? It can be done in MS Project and MS Word.