Change the font color (to black) of the cells that already have red and purple font color RRS feed

  • Question

  • I am working on a project in MS project and I want to run a macro that will change the cells that have text with red and purple font to black font. 

    here is my code


    Sub ChangeColor(FillIt As Boolean)

    Dim aTks As Tasks                   'Active Project Task
    Dim xT As Task                      'Task X

    Set aTks = ActiveProject.Tasks

        For Each xT In aTks
            SelectRow Row = xT.ID, RowRelative = False
            If FillIt Then
            Font32Ex CellColor = Red
            Font32Ex CellColor = vNo_Fill
            End If
        Next xT

    End Sub

    Thursday, July 6, 2017 4:49 PM