Pls find the following (The use is linke SUMIF function)

Function MINIF(MyRange As Range, Criteria As String)

'The following line must be on single line
MINIF = Application.Evaluate("=MIN(IF(" & MyRange.Address & Criteria &
"," & MyRange.Address & "))")


End Function