Найти минимальный элемент в указаном диапазоне в эксель и закрасить его

dim c,cMax,cMin
for each c in selection.cells 'перебрать ячейки выделенного диапазона
    if ... then set cMax=c 'запомнить ссылку на ячейку с макс. значением
    if ... then set cMin=c 'запомнить ссылку на ячейку с мин. значением
next
cmax.interior.color=vbred
cmin.interior.color=vbblue

for each c in application.inputbox("Введите диапазон",type:=8).cells

with application.inputbox("Введите диапазон",type:=8)
    for each c in .cells
        c=round(rnd()*10-5) 'целые от -5 до 5
    next
    for each c in .cells
        'поиск макс. и мин.
    next
end with

Dim c As Range

        c.Value = Round(Rnd() * 10 - 5)  'целые от -5 до 5

Sub f()
Dim t, w, r, c, f, a(1 To 100, 1 To 50), max, min As Integer, o As Range
Cells.Clear
s = InputBox("введите номер строки верхнего диапазона:")
d = InputBox("введите номер столбца верхнего диапазона:")
t = InputBox("введите номер строки нижнего диапазона:")
w = InputBox("введите номер столбца нижнего диапазона:")
s1 = Val(s): d1 = Val(d): t1 = Val(t): w1 = Val(w)
For i = s1 To t1
For j = d1 To w1
a(i, j) = Int(Rnd() * 100 - 30)
Cells(i, j).Value = a(i, j)
Next
Next
max = Cells(s1, t1)
min = Cells(s1, t1)
For i = s1 To t1
For j = d1 To w1
If Cells(i, j) > max Then
max = Cells(i, j)
'For i = d1 To w1
End If
If Cells(i, j) < min Then
min = Cells(i, j)
End If
Next
Next
For i = s1 To t1
For j = d1 To w1
If Cells(i, j) = max Then
With Cells(i, j).Font
.Bold = True
.Color = RGB(0, 0, 255)
End With
End If
If Cells(i, j) = min Then
With Cells(i, j).Font
.Bold = True
.Color = RGB(0, 255, 0)
End With
End If
Next
Next
MsgBox max
MsgBox min
End Sub

Sub f()
Dim max%, min%, c
Cells.Clear
With Application.InputBox("Введите диапазон, например A1:D10", Type:=8)
    Randomize
    For Each c In .Cells
        c.Value = Int(Rnd * 101) - 30
    Next
    min = Application.WorksheetFunction.min(.Cells)
    max = Application.WorksheetFunction.max(.Cells)
    For Each c In .Cells
        If c.Value = min Then c.Interior.Color = vbGreen
        If c.Value = max Then c.Interior.Color = vbRed
    Next
End With
MsgBox "min=" & min & vbCr & "max=" & max
End Sub