You can't absolutely avoid it, but you could make it shorter by changing
screenupdating .
Private Sub Workbook_Open()
Sheet.Visible = xlSheetVisible
Application.ScreenUpdating False
Sheet28.Visible = xlSheetVisible
Sheet27.Visible = xlSheetVisible
Sheet6.Visible = xlSheetVeryHidden
Call ExitEditMode '(sub also has Application.ScreenUpdating = True/false).
Application.ScreenUpdating = True
End Sub

Signature
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
> Hi,
>
[quoted text clipped - 19 lines]
> thanks
> Marcus
Marcus B - 22 Jan 2006 14:50 GMT
Thanks Bob,
Marcus
> You can't absolutely avoid it, but you could make it shorter by changing
> screenupdating .
[quoted text clipped - 35 lines]
> > thanks
> > Marcus