Hi All...........

I'm having trouble with the following code in XL97/SR2.....getting "cant
find file" error and not making the copy.........could anybody tell me what's
wrong please?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sName as String
sName = ThisWorkbook.Name
sName = Left(sName,len(sname)-4) & _
Format(now,"yyyymmdd_hh:mm:ss") & ".xls"
Thisworkbook.SavecopyAs sName
End Sub

TIA
Vaya con Dios,
Chuck, CABGx3