How detect if any workbooks are open?

[Chet]

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

 

[Wigi]

Perhaps

Application.Workbooks.Count

 

[Chet]

Perhaps

Application.Workbooks.Count

--
Wigihttp://www.wimgielis.be= Excel/VBA, soccer and music










- Show quoted text -

That did the trick!.. thx.. chet

 

[Peter T]

The code might fail

ActiveWindow.WindowState = xlNormal

if there is no ActiveWindow or ActiveWorkbook but there might be oner or
more hidden workbooks, eg Personal.xls

Rather than checking for open workbooks could do

If Not ActiveWindow Is Nothing Then
or
If Not ActiveWorkbook Is Nothing Then

Regards,
Peter T