[VBA - EXCEL] ricerca valore minimo - massimo

[Corwin]

Function MyMin(a As Range)
MyMin = a.Cells(1, 1).Value
For Each c In a
If Not IsEmpty(c.Value) Then
If c.Value < MyMin Then
MyMin = c.Value
End If
End If
Next
End Function

per richiamarla :

Minimo = MyMin(ThisWorkBook.Sheets("Foglio1").Range("A1:A10"))