Найти значение на основе 2 критериев

Question

Мне нужно найти значение на основе 2 критериев, только местоположение этого значения изменяется.

У меня есть следующий код:

Function montomensual(clave As Integer, mes As String) As Double

Dim cell As Range

Set claves = Worksheets("Agotamiento").Range("C15:C500")

Select Case mes

    Case "Enero"
        For Each cell In claves
            If clave = cell.Value Then
                montomensual = cell.Offset(0, 12).Value
            End If
        Next cell

    Case "Febrero"
        For Each cell In claves
            If clave = cell.Value Then
                montomensual = cell.Offset(0, 16).Value
            End If
        Next cell

    Case "Marzo"
        For Each cell In claves
            If clave = cell.Value Then
                montomensual = cell.Offset(0, 20).Value
            End If 
        Next cell

End Select
End Function

Однако, функция возвращает # Значение!

Я не знаю, что мне не хватает, вся помощь приветствуется.