Michael,
If you posted your entire code...
1. You did not declare the Filename and Sht1 variables.
2. It is not clear as to whether "ActiveWorkbook" is the workbook that contains
the code. If it is, I would replace ActiveWorkbook with "ThisWorkbook".
3. Filename is a property of the Assistant object and the FileSearch object
and should not be used as a variable name.
Furthermore, the FileSearch object was removed from XL2007 and
who knows what Excel 2007 thinks it has found when it sees that variable.

Of course, fixing all of the above may not cure your problem. <g
(some people refer to XL2007 (12) as the beta for version 14)
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"michael.beckinsale"
wrote in message
Hi All,
I have developed a workbook in XL2003 which is 24.27MB in size which
is heavily populated with formulas but nothing particularly complex.
If, Iserror, Sumif being the mainstay.

There is a small amount of VBA code triggered by the Workbook_Open
event (posted below)

The problem is this:

When l open the workbook in XL2007 everything appears fine, the
workbook calculates (showing that 2 processors are being used) then
when the calculation has ended l get a message stating that XL has
encountered a problem with the workbook and is trying to recover the
information!

I have tried various ways of opening / saving / transferring this file
into the XL2007 environment but without success. Only on one occasion
did the recovery message successfully complete stating that it had
found 'invalid conditional formatting' but without any details. I am
not convinced this is the cause, surely any conditional format
statement that works with XL2003 will work with XL2007, and
additionally how am l meant to locate the offending cells(s) in a
workbook of this size?

The original file is not corrupted as l have successfully opened it on
another machine running XL2003

Is there a site anywhere that lists all known XL2007 issues /
problems?

Can anybody shed any light on this problem?

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Call MsgBox("This workbook has been set to manual calculation to
enhance its operation." _
& vbCrLf & "" _
& vbCrLf & "Pressing F9 to calculate the workbook will
ensure that the latest results are displayed." _
, vbInformation, "Information")

Filename = ActiveWorkbook.Name
For Each Sht1 In Workbooks(Filename).Worksheets
Sht1.DisplayAutomaticPageBreaks = False
Sht1.EnableAutoFilter = True
If Sht1.Name Like "*Volumes" Or Sht1.Name Like "*Outputs" Then
Sht1.Outline.ShowLevels RowLevels:=2, ColumnLevels:=1
Else
Sht1.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
End If
Sht1.Activate
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
Sht1.Range("A1").Select
Next Sht1
Sheets("Start Here").Select

End Sub

Regards

Michael Beckinsale