Groups.Count

Returns the number of groups in the collection.

Type Info:

Count As Long

Example:
Dim Groups As Groups Dim NumberOfGroups As Long Set Groups = Application.ActiveProjectFile.SubFiles(1).Groups NumberOfGroups = Groups.Count

See also:

Class Groups

Type Info:	Count As Long
Example:	Dim Groups As Groups Dim NumberOfGroups As Long Set Groups = Application.ActiveProjectFile.SubFiles(1).Groups NumberOfGroups = Groups.Count