Object required (Error 424)
Hi Jordan,
I think you have a blank task in your active project, which is read as
Nothing and will generte the message 424
Please see below for the correction
HTH
Jan
Quote:
> This must be so simple, but... I want Rescurs1 to call
> Rescurs2. Thanks
> Sub Recurs1()
> For Each T In ActiveProject.Tasks
if not T is Nothing then
Quote:
> If T.OutlineLevel = 1 Then
> Recurs2 (T)
> End If
end if
> Next T
> End Sub
> Sub Recurs2(ts)
> If ts.Summary Then
> ts.Text1 = "SUM"
> Else
> ts.Text1 = "DET"
> End If
> End Sub
