Найти максимальный среди минимальных элементов строк матрицы

Private Sub CommandButton1_Click()
Dim a(1 To m, 1 To n) As Integer
Dim max As Integer, min As Integer, i As Integer
Dim nmax As Integer, nmin As Integer
m = InputBox("кол-во строк")
n = InputBox("кол-во столбцов")
For i = 1 To m
For j = 1 To n
mas(i, j) = Rnd(10)
Cells(i, j) = a(i, j)
Next j
Next i
min = a(i, 1)
For i = 1 To m
For j = 1 To n
If a(i, j) < min Then
min = a(i, j)
Cells(10, 1) = min
Cells(10, 2) = i
Cells(10, 3) = j
End If

Private Sub ck()
Dim a() As Integer
m = InputBox("кол-во строк")
n = InputBox("кол-во столбцов")
ReDim a(1 To m, 1 To n) As Integer
Dim max As Integer, min As Integer, i As Integer
Dim nmax As Integer, nmin As Integer
For i = 1 To m
For j = 1 To n
a(i, j) = Rnd(10)
Cells(i, j) = a(i, j)
Next j
Next i
Dim amin() As Integer
ReDim amin(m - 1) As Integer
For i = 1 To m
min = a(i, 1)
For j = 1 To n
If a(i, j) < min Then
min = a(i, j)
End If
Next j
amin(i - 1) = min
Next i
max = amin(0)
For i = LBound(amin) To UBound(amin)
   If amin(i) > max Then max = amin(i)
Next i
Cells(10, 1) = max
End Sub