on your 1st question: no - no other copies open at the time. I save then
close then try re-opening the newly saved file.

2nd question: no, if i go back to the original file and saveas there is no
error until the 2nd generation of the file.

A further note: a dialog box pops up to "send error to microsoft". If I
press that, a message comes back that microsoft has identified a patch for
this error. I haven't downloaded the patch yet but when I do I will post an
update.

thanks.


"JLatham" wrote:

> Just trying to gather some more information here.
>
> When you open save rename and open again, do you have any other copies
> (under earlier names) open in Excel? Or is it just one workbook open?
>
> If you take file1, save as file4, close it and open it up, do you get the
> same error?
>
> "macroplay" wrote:
>
> > Ok, I have a really bizarre problem...
> >
> > I have a workbook "file1". If I open file1 and make any chnage such as
> > changing the test of a header cell and save file1 as file2 and close it. I
> > can then open file2 but if I make a similar little change to file2 and save
> > as file3 and close. When I try to open file3 I get an error from excel that
> > says
> >
> > "Microsoft Excel has encountered a problem and needs to close. We are sorry
> > for the inconvenience."
> >
> > It tries to repair the file3 but if I view the repairs it indicates that the
> > prblems were so extensive that it could not be repaired.
> >
> > The original file1 I don't think has anything special about it. Some
> > formulas referring to cells in other sheets of the same file, some drop down
> > lists. There is a worksheet function (code below) but even if I delete this
> > code I have the same problem. Even if I delete all the sheets the problem
> > persists.
> >
> > Does anyone have any idea why this would be happening ???
> >
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > If Target.Cells.Count > 1 Then Exit Sub
> > If Intersect(Range("B31:B126"), Target) Is Nothing Then Exit Sub
> >
> > Application.EnableEvents = False
> > Application.Calculation = xlCalculationManual
> >
> >
> > Application.Run "VarMacro.xls!update5mBlotter" ' another workbook
> > Application.Run "VarMacro.xls!updateHourBlotter" ' another workbook
> >
> > Application.EnableEvents = True
> > Application.Calculation = xlCalculationAutomatic
> >
> > End Sub
> >
> >