Excel - Macro para identificar minimos

Sabe alguien donde puedo ver un ejemplo o un codigo para que una macro identifique los valores minimos en un rango de datos p.ej
A B C D E F
1 10 5 4 6 8 Min4
2
3
4

Algo Asi

Una forma:

Sub MinimoVBA()
Dim dblvalormin#
Dim rango As Range
Set rango = Worksheets("Hoja3").Range("A1:D1")
dblvalormin# = Application.WorksheetFunction.Min(rango)
MsgBox "El valor minimo del rango es " & dblvalormin#
Set rango = Nothing
End Sub

Abraham

Sabes como puedo hacer para que lo haga en las filas que siguen hacia abajo gracias

Cambiando el rango "A1:D1" a las celdas que quiera evaluar.

Si quieres evaluar por filas, te recomiendo usar un bucle.

Saludos.
FA#

Eso depende si necesita el minimo de cada fila o el minimo de todas ellas

Sub Minimo()
fila=1
do while cells(fila,1)<>""
fila=fila+1
loop
fila=fila-1

for y=1 to fila
Set rango = Range(cells(y,1),cells(y,4))
cells(y,5)= Application.WorksheetFunction.Min(rango)
Set rango = Nothing
next y

End Sub

Buena suerte
SCM