Returns the number of items in the project file.

Syntax:

CountItems() As Long
Return: Long
Example:
Dim ProjFile As ProjectFile
Dim Items As Long

Set ProjFile = Application.ActiveProjectFile

Items = ProjFile.CountItems

See also:

Class ProjectFile


Last Updated: 03/11/04