Try Application.Calculation = xlCalculationManual

Regards
BrianB
==============================

"Urban" wrote in message ...
I have a spreadsheet that includes tables, and lots of
opening and hiding of rows. The spreadsheet works fine if
the Calculation settings are set to
xlCalculationSemiautomatic.

However if a user has its machine set at
xlCalculationAutomatic I want to change this before he
starts working with the spreadsheet. I have used the
following code, the change works, but it stills triggers
50 calculations (two 5 x 5 tables). The same happens when
the sheet is being saved. Any way around this problem?

I'm using Excel 2003

Private Sub Workbook_Open()

Application.EnableEvents = False
Application.Calculation = xlCalculationSemiautomatic
Application.EnableEvents = True

End Sub

Thanks in advance,

Urban