How to Write Error Trap
I have the following code to toggle between print preview and normal
view but I need to add an error statement just in case there is no
sheet open.
Can someone please suggest how I might write this.
Thanks
Sub TogglePrintView()
If ActiveWindow.View = xlPageBreakPreview Then
ActiveWindow.View = xlNormalView
ElseIf ActiveWindow.View = xlNormalView Then
ActiveWindow.View = xlPageBreakPreview
End If
End Sub
|