try

Selection.Subtotal groupBy:=1, Function:=xlSum, _
totalList:=Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)
Application.ScreenUpdating = True

--
Regards,
Tom Ogilvy

"Andy" wrote in message
...
Hi,
I have a spreadsheet whose macros work fine on Excel97, but Excel 2002/XP
cause the Excel window to go blank. The offending line is the second macro
line below..

Worksheets("10working").Range("A1").CurrentRegion. Select

'The following line screws up the screen on Excel2002
'=================================
Selection.Subtotal groupBy:=1, Function:=xlSum, _
totalList:=Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)

When it executes that row on Excel 02, Excel basically loses control of
that
sheet, since it no longer refershes the screen. Moving another window on
top
of that sheet will leave a 'trail' where it hasn't re-painted the screen
after the window has moved over the top (I don't know if there is a
special
term for this or not). Code continues to run with no errors...

The following do nothing..
worksheets("10working").activate
worksheets("10working").visible=true

Window | Arange...Horizontal shows one visible sheet, and (effectively)
one
"invisilbe" sheet

I'm stumped. Any ideas / things to try would be most appreciated! NB This
is
only an issue on Excel 2002, 97 works a treat.

Many thanks in advance.