Simple True/False Colouring (Not Conditional)

I'm looking for a slightly better way of doing the following...

Sub FalseTrueTest2()

    Dim cl As Range
    For Each cl In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        Select Case cl.Value
            Case Is = "True"
                cl.Style = "Good"
            Case Is = "False"
                cl.Style = "Bad"
        End Select
    Next
    
End Sub