Trying to show the date a sheet was last refreshed.

[ajr123]

I found code that will work for a pivot table returning the date to a message box but I can't figure out how do this so the date is in a cell and the instead of a Pivot refresh date I need a sheet refresh date.Please Help
Thanks

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
dateString = Format(pvtTable.RefreshDate, "Long Date")
MsgBox "The data was last refreshed on " & dateString

[Corni]

Use the change event for that particular sheet and set a cell value to Date:

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(1, 1) = Date
End Sub