XL7: Count Method Returns Wrong Value If Shared Lists Active

Last reviewed: September 2, 1997
Article ID: Q134682
The information in this article applies to:
  • Microsoft Excel for Windows 95, version 7.0

SYMPTOMS

The Visual Basic, Applications Edition, Worksheets.Count method may return a value one larger than the actual number of worksheets contained in the workbook.

CAUSE

This problem occurs when the Shared Lists option is active. When the Shared Lists option is active, the book has had a special worksheet added that contains a list of all sharing conflicts and the resolution applied to these conflicts. This worksheet exists as long as the workbook is marked for sharing; it contains only the list of conflict resolutions.

WORKAROUND

To work around this problem, test to see if the workbook is shared before you count the worksheets. The following example sets a variable equal to the number of worksheets in the active workbook:

Sub Test()
   Dim X As Integer
   If ActiveWorkbook.MultiUserEditing = True Then
      X = Worksheets.Count - 1
   Else
      X = Worksheets.Count
   End If
   MsgBox ("The number of worksheets is " & X & ".")
End Sub

Microsoft provides examples of Visual Basic procedures for illustration only, without warranty either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. This Visual Basic procedure is provided 'as is' and Microsoft does not guarantee that it can be used in all situations. Microsoft does not support modifications of this procedure to suit customer requirements for a particular purpose.

STATUS

Microsoft has confirmed this to be a problem in Microsoft products listed at the beginning of this article. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

If the Shared List option is active when you create a macro that uses the Worksheets.Count method, the macro will return a count of worksheets+1. This behavior may not be what you expect (you may expect a count of the worksheets only).

REFERENCES


Additional query words: 7.00
Keywords : kbprg PgmOthr xlwin kbcode
Version : 7.00
Platform : WINDOWS


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: September 2, 1997
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.