Option Explicit
Function GetAmount(Rng1 As Range, qtr As String, month As String) As Variant
Dim cl As Object
For Each cl In Rng1
If cl.Value = qtr And cl.Offset(0, 1).Value = month Then
GetAmount = cl.Offset(0, 2).Value
Exit For
Else
Debug.Print cl.Value
GetAmount = 0
End If
Next cl
End Function