Sobre equivalência a #define, não posso dizer. MAS
Se o objetivo for somar entradas YES + NO, você pode tentar
Function addYesNo(rng As Range)
Dim x As String
x = Replace(Replace(rng, "YES", 1), "NO", 0)
addYesNo = Evaluate("=SUM(" & x & ")")
End Function