Put this in a standard module in your workbook:

Function FileDate(FileName As String) As Date
Application.Volatile
FileDate = FileDateTime(FileName)
End Function

Put this in a cell in a worksheet in your workbook
=FileDate("C:\Temp\MyFile.xls") [amend as appropriate]


Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup