With Workbooks("Admin").Worksheets("Sheet1")

Workbooks.Open(Filename:="C:\MyFiles\Workbook1.xls ")
Activeworkbook.Worksheets("Sheet1").Range("B6:B14" ).ClearContents
.Range("A1").Value = DocProps("last save time")
Activeworkbvook.Close SaveChanges:=False

Workbooks.Open(Filename:="C:\MyFiles\Workbook2.xls ")
Activeworkbook.Worksheets("Sheet1").Range("B6:B14" ).ClearContents
.Range("A2").Value = DocProps("last save time")
Activeworkbvook.Close SaveChanges:=False

Workbooks.Open(Filename:="C:\MyFiles\Workbook3.xls ")
Activeworkbook.Worksheets("Sheet1").Range("B6:B14" ).ClearContents
.Range("A3").Value = DocProps("last save time")
Activeworkbvook.Close SaveChanges:=False

Workbooks.Open(Filename:="C:\MyFiles\Workbook4.xls ")
Activeworkbook.Worksheets("Sheet1").Range("B6:B14" ).ClearContents
.Range("A4").Value = DocProps("last save time")
Activeworkbvook.Close SaveChanges:=False

Workbooks.Open(Filename:="C:\MyFiles\Workbook5.xls ")
Activeworkbook.Worksheets("Sheet1").Range("B6:B14" ).ClearContents
.Range("A5").Value = DocProps("last save time")
Activeworkbvook.Close SaveChanges:=False

End With


'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function



change the folder and workbooks to suit

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"vmadan16" wrote in message
...
Helo All,

I have 6 workbooks and out of that one is a admin workbook where the
calculations are done. In that admin workbook I should get the last
modified
date of the all other 5 workbooks.

I have a Commandbutton (Caption : Reset) in the admin Work if I click that
then in all other 5 workbooks range of B6:B14 in all the 5 workbooks
should
reset to 0.

Plesase help me out with this.
It will be really help full for me.

Thanx in Advance.
Madhan