[VBA] SWITCH CASE FOR EXCEL

Public Function SWITCH(Ref As String, ParamArray var() As Variant) As String
    Dim result As String
    For i = LBound(var) To UBound(var)
        If var(i) = Ref Then result = var(i + 1)
    Next
    SWITCH = result
End Function