Sub WView(ViewNb)
Application.EnableEvents = False
On Error GoTo Gone
Select Case ViewNb
Case 1
With Application
'.WindowState = xlNormal
.Width = 680
.Height = 573
End With
Case 2
With Application
'.WindowState = xlNormal
.Width = 763
.Height = 573
End With
End Select
Gone:
Application.EnableEvents = True
End Sub
This wont work. The error message is displayed and error halts operation.
Looked everywhere and experimented with a lot of variations.
Thanks for your help.

--
Jim at Eagle