Максимальный элемент массива - VBA

Формулировка задачи:

Всем доброго времени.Нужно найти максимальное отрицательное значение массива. Я абсолютный ~~ноль~~ новичек. Попытки подкорректировать написанные уже макросы, не увенчались успехом) Поэтому прошу Вас помощь, подсказать где у меня ошибки) Можно как нибудь убрать этот рандом, поставить определенный массив и оставить чтоб выводил макс отриц значение?

Cells.Clear
Set Rng = Range(Cells(1, 1), Cells(10, 1))
Rng.Formula = "=int(rand()*10)"
max = Application.WorksheetFunction.max(Rng)
MsgBox "max= " & max

Здесь написал, точно так же,как писали на лекции, и почему то он отказывается выводить нужное значение, вместо этого выводит просто 1 элемент массива, до этого выводил последнюю(

Dim A(10)
For i = 1 To 10
A(i) = Cells(1, i)
Min = A(1)
If A(i) > Min Then
A(i) = Min
End If
Next
For i = 1 To 10
Cells(5, 8) = Min
Next i
End Sub

Кстате готовые примеры написанные на других языках, можно в VBA переписать? тот же паскаль, примеры выглядят достаточно одинаковыми)

Решение задачи: «Максимальный элемент массива»

textual
                            Листинг программы 
                        
                            MsgBox "min= " & Application.WorksheetFunction.Min(Range(Cells(1, 1), Cells(10, 1)))