I have code to change my appplication.width from double width to
single width. The code works fine with the exception of when I don't
have a workbook actually open. Is there a way to test whether any
workbooks are currently open? Then maybe I can skip the line that
fails.

Here is my code. It is failing at the 2nd line when there isn't a
workbook open.
Sub TOOLBAR_MK_SCRN_SINGLE_WIDTH_MOVE_RIGHT_TO_LEFT()
'SHRINKS SIZE OF DOUBLE WIDE SCREEN TO SINGLE WIDE SCREEN AND THEN
MOVES ACTIVEWORKBOOK
'FROM RIGHT SIDE TO THE LEFT SIDE.

If Application.WindowState = xlMaximized Then
Application.WindowState = xlNormal
If ActiveWindow.WindowState = xlMaximized Then
ActiveWindow.WindowState = xlNormal <-fails here

ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 0
.Left = -2
End With
Application.Width = 958
ActiveWindow.Height = 654
Application.Height = 768
End Sub

Thanks in advance.

Chet