Jan,

All I can do is guess, but give this a try...
(assumes objXL is the variable holding the reference to Excel)

objXL.ScreenUpdating = False
objWS.DisplayPageBreaks = False
objWS.Outline.ShowLevels 1 ' omit argument name
objWS.DisplayPageBreaks = True
objXL.ScreenUpdating = True

Regards,
Jim Cone
San Francisco, USA


"Jan Vente" wrote in message
...
Hi All,

I've created a spreadsheet with a plan-board. The plan-board is filled from
a sql server-based planning system.
The planboard has two outline levels. There are ± 300 row groups.

At the end of the code for refreshing the plan-board is this line of code:
objWS.Outline.ShowLevels rowlevels:=1
Executing this codeline takes 4 seconds. Is there a way to make this faster?

Thanks,
Jan Vente
The Netherlands