Как закрасить ячейку с локальным минимумом?

Sub sum_st()
Cells.Clear
Set Rng = Range(Cells(1, 1), Cells(10, 10))
Rng.Formula = "=int(rand()*20)-10"
 
minn = Application.WorksheetFunction.Min(Rng)
sr_ar = Application.WorksheetFunction.Average(Rng)
maxx = Application.WorksheetFunction.Max(Rng)
 
 
For i = 0 To n - 1
For j = 0 To n - 1
If i - 1 >= 0 Then
  If Rng(i, j) >= Rng(i - 1, j) Then f = False
  End If
  If j - 1 >= 0 Then
    If Rng(i, j) >= Rng(i - 1, j - 1) Then f = False
    End If
  If j + 1 <= n - 1 Then
    If Rng(i, j) >= Rng(i - 1, j + 1) Then f = False
    End If
If i + 1 <= n + 1 Then
  If Rng(i, j) >= Rng(i + 1, j) Then f = False
  End If
  If j - 1 >= 0 Then
    If Rng(i, j) >= Rng(i + 1, j - 1) Then f = False
    End If
  If j + 1 <= n - 1 Then
    If Rng(i, j) >= Rng(i + 1, j + 1) Then f = False
    End If
If j - 1 >= 0 Then
  If Rng(i, j) >= Rng(i, j - 1) Then f = False
  End If
If j + 1 <= n - 1 Then
  If Rng(i, j) >= Rng(i, j + 1) Then f = False
  End If
If f = True Then k = k + 1
MsgBox "Лок минимум=" & k
f = True
Next j
Next i
 
For i = 0 To n - 1
For j = 0 To n - 1
If Cells(i, j) = 10 Then
Cells(i, j).Interior.Color = QBColor(12)
End If
Next j
Next i
 
MsgBox "Мин. э-т=" & minn
MsgBox "Среднее арифметическое=" & sr_ar
MsgBox "Наиболее удаленный э-т от среднего арифметического=" & maxx
End Sub

Sub setLMin(Rg As Range)
    
Dim v As Range
Dim mi As Range
    
    Set mi = Rg.Cells(1)
    ai = mi.Address
    
    For Each v In Rg
        If v.Value < mi.Value Then
           Set mi = v
           ai = mi.Address
        End If
    Next
 
    Range(ai).Interior.Color = QBColor(12)
    
End Sub

Sub setLMin(Rg As Range)
 
Rg.find(application.min(rg),,xlvalues,xlwhole).Interior.Color = vbred
 
End Sub