Простой вопрос: я не могу заставить работать выражение a = ActiveCell.value

Question

Отрывок из моего кода:

    Function ans()
      Dim a As Variant
      a = ActiveCell.value
         If a = cup Or a = Cups Then
         ans = "cups"
         End If
    End Function 

Я пробовал много вариантов выражения a = ActiveCell, но все, что я получаю, это ошибки.