Como indicar el numero de fila en la que se cumple la condicion

[fire384]

hola a todos:
Tengo esta rutina y necesito que ademas de si es verdadero o falso me indique en que fila del rango se cumple la condicion

Public Function EncontrarCP(CP As String, ListaCP As Range) As Boolean
Dim intÍnd As Integer
Dim intPosAl As Integer
Dim intPosDel As Integer
With ListaCP
For intÍnd = 1 To .Rows.Count
intPosDel = InStr(.Cells(intÍnd, 1), "DEL ")
intPosAl = InStr(.Cells(intÍnd, 1), " AL ")
If CP >= Trim(Mid(.Cells(intÍnd, 1), intPosDel + 3, intPosAl - 4)) Then
If CP <= Trim(Mid(.Cells(intÍnd, 1), intPosAl + 3)) Then
EncontrarCP = True

Exit Function
End If
End If
Next
End With
End Function

Saludos
Fire