Run-time error '91'?

[SonT]

Please tell me why I get "Run-time error '91'

Sub Macro10()

Dim b As Integer
b = ActiveProject.Tasks.Count
For b = b To 1 Step -1
SelectCell Row:=b, Column:=5, RowRelative:=False
If ActiveCell.Task.Type = 1 Then ActiveCell.CellColor = pjRed
If ActiveCell.Task.Type = 2 Then ActiveCell.CellColor = pjColorAutomatic
If ActiveCell.Task.Type = 3 Then ActiveCell.CellColor = pjColorAutomatic
If ActiveCell.Task.Type = 0 Then ActiveCell.CellColor = pjColorAutomatic
Next b

End Sub

Thank you.

 

[Jan De Messemaeker]

Which task type is 3?
And one other thing, why not use constants like pjfixedwork - it grealy
improves readability.
HTH
--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availability check:
http://users.online.be/prom-ade/Calendar.pdf

 

[SonT]

Below are my new codes, but I still get the same errors:
Sub Macro10()

Dim b As Integer

b = ActiveProject.Tasks.Count

For b = b To 1 Step -1
SelectCell Row:=b, Column:=5, RowRelative:=False

If ActiveCell.Task.Type = pjFixedDuration Then ActiveCell.CellColor = pjRed
If ActiveCell.Task.Type = pjFixedUnits Then ActiveCell.CellColor =
pjColorAutomatic
If ActiveCell.Task.Type = pjFixedWork Then ActiveCell.CellColor =
pjColorAutomatic

Next b
End Sub

 

[Jan De Messemaeker]

Do you have 6 or more columns in your active table?
Is a task view acticve?
Haven't you filtered the tasks?

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availability check:
http://users.online.be/prom-ade/Calendar.pdf