Ayuda con la implementación de función de excel que me devuelva el valor más pequeño de un conjunto

Para esto debes utilizar una función personalizada, si necesitas ayuda sobre como utilizarla por favor pregunta. La función sería la siguiente:
Function MINSINCERO(Lista As Range)
'Funcion para hallar el mínimo de la lista sin tener en cuenta los ceros
'Elaborada por CMERA el 10/06/2005 para todoexpertos
For i = 1 To Lista.Cells.Count
If Lista.Cells(i).Value <> 0 And IsEmpty(MINSINCERO) Then
MINSINCERO = Lista.Cells(i).Value
ElseIf Lista.Cells(i).Value <> 0 And MINSINCERO > Lista.Cells(i).Value Then
MINSINCERO = Lista.Cells(i).Value
End If
Next i
End Function
Cordialmente,
cmera