VBA to calculate total number of tasks (no summary tasks) in a pro

[Marty]

I have been hacking away at this code for a while. Would anybody out there
be willing to provide an example of VBA that will calculate all the tasks in
a project without any of the summary tasks?

 

[Brian K - Project MVP]

I have been hacking away at this code for a while. Would anybody out there
be willing to provide an example of VBA that will calculate all the tasks
in
a project without any of the summary tasks?

Sub CountTasks()
Dim T As Task
Dim C As Long

For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
If T.Summary = False Then
C = C + 1
End If
End If
Next T

MsgBox Prompt:="The Project Contains " _
& C & " non-Summary tasks"

End Sub

 

[Marty]

Thanks a ton Brian. It works like a champ!!

Sub CountTasks()
Dim T As Task
Dim C As Long

For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
If T.Summary = False Then
C = C + 1
End If
End If
Next T

MsgBox Prompt:="The Project Contains " _
& C & " non-Summary tasks"

End Sub