ListItemCount
This read-only property returns the number of strings in the ListItem list.
Syntax
ListItemCount as Long
Sample Code
Dim lngItem as Long
For lngItem = Project.AllClasses.ItemByName("Invoice").Fields("Currency").ListItemCount - 1 To 0 Step -1