Returns the number of "TransUnit" objects in the collection.
Type Info:
Count As Long
Example:
Dim ProjFile As ProjectFile
Set ProjFile = Application.ActiveProjectFile
If (ProjFile.TransUnits.Count > 0) Then
MsgBox ProjFile.TransUnits.Item(1).Source
End If