Выбор максимальноко значения с массива данных

[sasha_prof]

Как выбрать макрсом максимальное значение с заданного масива данных (таблицы)

[Maxx]

Sub maxVal()
    maxV = Application.Max(Selection.Cells.Value)
    MsgBox maxV
End Sub

Этот код покажет макс. значение выделенного диапазона.
Вместо Selection.Cells.Value можно подставить диапазон Вашей таблицы.

Например так:
пусть таблица расположена в ячейках A1:D30

Sub maxVal()
    myTable = Range("A1:D30").Value
    maxV = Application.Max(myTable)
    MsgBox maxV
End Sub

[sasha_prof]

Огромнейшее спасибо. Все работает отличненько