QueryCategories.Count property
Read Only
Count As Long
Returns the number of query categories in the project.
The following example that traverses the query categories collection prints the name and item number of each category, represented by Queries.Count, and sets up the For loop using QueryCategories.Count.
Dim prj As Project
Dim i As Integer
For i = 0 To prj.QueryCategories.Count - 1
debug.Print prj.QueryCategories(i).Name
debug.Print prj.QueryCategories.Count
Next i