Hi,the following code fails at - Workbooks(filePath).CheckInwith the following errorrun-time error '9'subscript out of rangeI cant see why this is happening. I am using Excel 2003 and MOSS 2007 (as far as i can tell)<Code>Private Sub ArchiveRecord() Dim RemoveDate As String, filePath As String Unload UserForm1 RemoveDate = Format((Date + 1095), "dd-mmm-yy") Application.ScreenUpdating = False filePath = ThisWorkbook.path & "/Book2.xls" Workbooks.CheckOut filePath Workbooks.Open (filePath) Workbooks(ThisWorkbook.Name).Sheets("Test1").Copy After:=Workbooks("Book2.xls").Sheets("Sheet1") ActiveSheet.Name = ActiveSheet.Name & " (Delete on " & RemoveDate & ")" Workbooks(filePath).CheckIn Application.ScreenUpdating = TrueEnd Subany help greatly received.Matt