Use string text as the select case statement control value
Function Price(Product As String) As Variant
Select Case Product
Case "Apples": Price = 12.5
Case "Oranges": Price = 15
Case "Pears": Price = 18
Case "Mangoes": Price = 25
Case Else: Price = CVErr(xlErrNA) End Select End Function