Conditional Format (VBA)

How can I compare to with a Chain in conditional format?

Function Color(name As String)
  Dim ws As Excel.Worksheet
  Set ws = ThisWorkbook.Worksheets(name)
  With Selection
    .FormatConditions.Add Type:=xlExpression, Formula1:="=$S$41>0"
    With .FormatConditions(1)
      .Font.Bold = True
      .Interior.Color = 3
      '.Size = 14
    End With
  End With
End Function

in Formula1, I need to compare a String. For example, S41 = "Select List"