Invalid argument on Macro

Question

Hi,

I´m running a very simple Macro that assigns a value of 0 to one of Project´s column. I developed it on version 2007 but there is this particular user who has version 2010 and he´s the only one getting the error:

Error 1101 in execution time.

Invalid value argument

The error is being thrown on line highlighted in bold

For Each t In ActiveProject.Tasks

        If Not t Is Nothing Then

            t.Text1 = t.PercentComplete & "%"

        End If

    Next t

    ' set all % completed to 0

    For Each t In ActiveProject.Tasks

    If Not t Is Nothing And Not (t.PercentComplete = 0) Then

t.PercentComplete = 0

    End If

    Next t

It seems like Ms Project won´t let me assign that value to column PercentComplete. However a previous assignment was allowed to column Text1.

Any hints?

Thank you!

Answer 1

Hi,

You cannot set percentcomplete for a summary task.

So your if structure better looks like this:

If not t is nothing then

if (not t.summary) and (t.percentcomplete>0) then

Greetings,

Answer 2

The problem may be in the If Not t Is Nothing And Not (t.PercentComplete = 0) Then line.

If a schedule does have a blank row, then the Not t is Nothing returns False, but teh t.PercentComplete fails. Try:

For Each t In ActiveProject.Tasks

    If Not t Is Nothing Then

        If t.PercentComplete <> 0  Then

t.PercentComplete = 0

        End If

    End If

Next t

Answer 3

i implemented suggestions from both Jan and Rod. That solve the problem.

Thanks a lot!