Select Case only running one sub scenario

[shim]

I'm very very new to VBA and don't have a need to use it a lot, so when I do I generally find a code that is similar to what I am looking for and try to tweak it. I am adding code in to a Microsoft Project 2013 document to conditionally format the color of the Start Date column if it is less than 100% complete. So far, the below code works up until the lines I've highlighted in red. The code seems to work accurately except that when there is a "TBD" in the data field it is sometimes turned green and sometimes skipped. I would like to have TBD in grey or even have it skipped over and be in Auto color/black. Any help is appreciated!

Sub ColorFormatDateCurrent()
Dim t As Task
Dim i As Integer

i = 1
For Each t In ActiveProject.Tasks
        SelectTaskField Row:=i, RowRelative:=False, Column:="Start"
            
        Select Case t.PercentComplete
             Case Is < 100
                Select Case t.Start
                    Case Is < ActiveProject.CurrentDate
                        Font Color:=pjGreen
                    Case "TBD"
                        Font Color:=pjGrey
                    Case Else
                        Font Color:=pjBlack
                      
                End Select
        End Select
    
i = i + 1
Next t
End Sub

[SamT]

You cannot nest Selects like that, but it looks like the outer select can be replaced with an IF

Sub ColorFormatDateCurrent() 
    Dim t As Task 
    Dim i As Integer 
     
   'This just doesn't look right???
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 i = 1 
    For Each t In ActiveProject.Tasks 
'Shouldn't you go through the Task Rows after you determine the task?
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        SelectTaskField Row:=i, RowRelative:=False, Column:="Start" 
         
        If t.PercentComplete < 100 Then
            Select Case t.Start 
            Case Is < ActiveProject.CurrentDate 
                t.Font.Color:=pjGreen    'I am assuming a lot here.
            Case "TBD" 
                t.Font.Color:=pjGrey 
            Case Else 
                t.Font.Color:=pjBlack 
                 
            End Select 
      End If 
        i = i + 1 
    Next t 
End Sub

[shim]

Thank you. I tried the If adjustment suggested (though I had to change it back to "Font Color" as "t.Font.Color" was not accepted). It ran but still ignored the Case "TBD" and Case Else scenarios. Apologies for my naivety - I really don't understand the set up part at the top you are questioning enough to know if that is part of the problem. I did try moving or deleting portions but it wouldn't run then.

Sub ColorFormatDateCurrent()
    Dim t As Task
    Dim i As Integer
    i = 1
    For Each t In ActiveProject.Tasks
        SelectTaskField Row:=i, RowRelative:=False, Column:="Start"
         
        If t.PercentComplete < 100 Then
            Select Case t.Start
            Case Is < ActiveProject.CurrentDate
                Font Color:=pjGreen
            Case "TBD"
                Font Color:=pjGrey
            Case Else
                Font Color:=pjBlack
                 
            End Select
        End If
        i = i + 1
    Next t
End Sub

[SamT]

BTW, the # icon inserts code tags, which format your code. You can select the code and click the #, or you can click the # then paste the code between the tags.

I don't know enough about MS Project to recognize the problem form the code, but What is "Current Date?"

You might try an If Then ElsIf since there are only three options

If t.PercentComplete < 100 Then 
     If t.Start < ActiveProject.CurrentDate Then
         Font Color:=pjGreen 
    ElseIf t.Start = "TBD" Then
         Font Color:=pjGrey 
    Else 
          Font Color:=pjBlack 
     End If
End If