Найти макс число выделенного диапазона рабочей таблицы

Sub Test()
    Dim c As Range, dMax As Double
    
    dMax = ActiveCell.Value
    For Each c In Selection.Cells
        If Abs(dMax) < Abs(c.Value) Then dMax = c.Value
    Next
    
    For Each c In Selection.Cells
        If c.Value = 0 Then c.Value = dMax
    Next
    
    MsgBox dMax
End Sub

Public Sub ввод_массива()
Dim stl As Double
Dim str As Double
Dim i As Integer
Dim j As Integer
met1:
Cells.Clear
On Error GoTo m:
str = InputBox("Введите количество строк", "Ввод")
stl = InputBox("Введите количество столбцов", "Ввод")
Dim l As Integer
If CInt(str) <> CDbl(str) Or Int(stl) <> CDbl(stl) Or str <= 0 Or stl <= 0 Then str = 1 / 0
str = CInt(str)
stl = CInt(stl)
For i = 1 To stl
For j = 1 To str
  ReDim mas(i, j) As Double
  mas(i, j) = InputBox("Введите элемент [" & i & ";" & j & "]", "Ввод массива")
  Sheets("Лист1").Cells(i, j) = mas(i, j)
Next j
Next i
Exit Sub
m:
If Err = 11 Then
  o = MsgBox("Неверно задана размерность массива", 5 + 16, "Ошибка")
    If o = 4 Then
       Resume met1
       Else
       Exit Sub
    End If
End If
If Err = 13 Then
   o = MsgBox("Некоректный ввод данных", 5 + 16, "Ошибка")
    If o = 4 Then
       Resume met1
       Else
       Exit Sub
    End If
End If
End Sub
Public Sub Запуск()
Dim a1 As Range
Dim а2 As Double
Dim Pr As Double
Dim n As Integer, x As Integer, y As Integer
On Error GoTo m
    If Application.CountA(Selection) < Selection.Cells.Count Then
    n = 1 / 0
    Else
    GoTo met
    End If
met:
With ActiveSheet
     Set a1 = Selection
     a1.Activate
             'a2 = Application.Average(a1)
             a2 = Application.Max(a1)
             MsgBox a2
             a1 = 0
      End With
     
Exit Sub
m:
If Err = 13 Or Err = 11 Then
   o = MsgBox("Неправильно выполнено выделение ячеек", 16, "Ошибка")
     If o = 5 Then
       Resume
     End If
End If
End Sub