MS Project Colorization Macro

What a sad day. I broke down and wrote a VB macro. And I really loathe VB. The macro formats all milestones and dependencies in an MS Project using a simple naming convention — the tasks must have the word “Dependency” or “Milestone” in them to be colorized. Beats doing this manually :)

Sub Format_Milestones()

Dim t As Task

Application.OpenUndoTransaction ("Colorize Milestones")

For Each t In ActiveProject.Tasks

If Not t Is Nothing Then

        If InStr(t.Name, "Milestone") <> 0 Then
            SelectRow Row:=t.ID, RowRelative:=False
            Font Color:=pjGreen, Bold:=True
        End If

        If InStr(t.Name, "Dependency") <> 0 Then
            SelectRow Row:=t.ID, RowRelative:=False
            Font Color:=pjOlive, Bold:=True
        End If

    End If

Next t

Application.CloseUndoTransaction

End Sub

Comments