From: Marty on

From: JulieS on
I'm sure you meant to give us more details, Manny. As a suggestion:
What version of Project?
Project stand alone or with server?
Why do you wish to count the number of non-summary, non-milestone tasks?
What are you trying to accomplish -- perhaps there is a better answer we
can suggestion.


Julie
Project MVP

Visit http://project.mvps.org/ for the FAQs and additional
information about Microsoft Project

On 2/8/2010 1:55 PM, Marty wrote:
>
From: Jack Dahlgren MVP on
sub countTheTasks()
dim I as integer
I = 0
for each task in activeproject.tasks
if not task is nothing then
if not task.summary then
I - I + 1
end if
end if
next task
msgbox "this project contains " & I & " tasks"
end sub

"Marty" <Marty(a)discussions.microsoft.com> wrote in message
news:6AF55171-A29E-4285-9E3B-BEA0C1429262(a)microsoft.com...
>