Объекты в VBA (Excel)

Public Sub r()
Dim stl As Integer
Dim str As Integer
Dim i As Integer
Dim j As Integer
stl = InputBox("Введите количество столбцов")
str = InputBox("Введите количество строк")
For i = 1 To stl
For j = 1 To str
Sheets("Лист1").Cells(i, j) = InputBox("Введите" & j & "элемент" & i & "строки")
Next j
Next i
End Sub

Sub FillMatrix()
    Dim i As Long, j As Long, m As Long, n As Long, wsh As Worksheet
    Randomize
    
    Set wsh = ThisWorkbook.Worksheets(1)
    wsh.UsedRange.Clear
    
    i = 1: m = 5
    Do While i <= m
        j = 1: n = 4
        Do While j <= n
            wsh.Cells(i, j).Value = Int((6 * Rnd) + 1)
            j = j + 1
        Loop
        i = i + 1
    Loop
    
    Call NodePoints(m, n)
    
    Set wsh = Nothing
End Sub
 
Private Sub NodePoints(m As Long, n As Long)
    Dim src(), tmp() As Long, wsh As Worksheet
    Dim i As Long, j As Long, lMin As Long, lMax As Long
    
    Set wsh = ThisWorkbook.Worksheets(1)
    src = wsh.Range(wsh.Cells(1, 1), wsh.Cells(m, n)).Value
    
    ReDim tmp(1 To m, i To n)
    For i = 1 To m
        For j = 1 To n
            tmp(i, j) = 0
        Next j
    Next i
    
    For j = 1 To n
        lMax = src(1, j)
        For i = 1 To m
            If lMax < src(i, j) Then lMax = src(i, j)
        Next
        For i = 1 To m
            If lMax = src(i, j) Then tmp(i, j) = 1
        Next i
    Next j
    
    For i = 1 To m
        lMin = src(i, 1)
        For j = 1 To n
            If lMin > src(i, j) Then lMin = src(i, j)
        Next j
        For j = 1 To n
            If lMin = src(i, j) Then tmp(i, j) = tmp(i, j) + 1
        Next j
    Next i
    
    For i = 1 To m
        For j = 1 To n
            If tmp(i, j) = 2 Then
                With wsh.Cells(i, j)
                    .Font.Bold = True
                    .Font.ColorIndex = 3
                End With
            End If
        Next j
    Next i
    
    Set wsh = Nothing
End Sub

Sub m_1()
Dim myArray As Variant
Dim i As Long
Dim j As Long
Dim Max As Variant
Dim Min As Variant
myArray = Selection
For i = 1 To UBound(myArray, 1)
    Max = myArray(i, 1)
    Min = myArray(i, 1)
    For j = 1 To UBound(myArray, 2)
        If myArray(i, j) > Max Then
            Max = myArray(i, j)
        ElseIf myArray(i, j) < Min Then
            Min = myArray(i, j)
        End If
    Next j
    Cells(i, 10).Value = "max" & " " & Max & " " & "min" & " " & Min
Next i
End Sub

Sub m_1()
Dim myArray As Variant
Dim i As Long
Dim j As Long
Dim Max As Variant
Dim Min As Variant
Dim stl As Integer
Dim str As Integer
 stl = InputBox("Введите количество столбцов")
 str = InputBox("Введите количество строк")
 For i = 1 To stl
  For j = 1 To str
   Sheets("Лист1").Cells(i, j) = InputBox("Введите" & j & "элемент" & i & "строки")
 Next j
 Next i
 
myArray = Selection
For i = 1 To UBound(myArray, 1)
    Max = myArray(i, 1)
    Min = myArray(i, 1)
    For j = 1 To UBound(myArray, 2)
        If myArray(i, j) > Max Then
            Max = myArray(i, j)
        ElseIf myArray(i, j) < Min Then
            Min = myArray(i, j)
        End If
    Next j
    Cells(i, 10).Value = "max" & " " & Max & " " & "min" & " " & Min
Next i
End Sub

Function Min_D(ParamArray myArray())
Dim Q
Dim J
Dim W
Min_D = myArray(0)(1, 1)
For J = 0 To UBound(myArray)
W = myArray(J)
    For Each Q In myArray(J)
        If Min_D > Q Then Min_D = Q
    Next
Next
End Function

Sub m_1()
Dim myArray() As Single
Dim i As Long
Dim j As Long
'1 To используется для удобства.
ReDim myArray(1 To Selection.Rows.Count, 1 To Selection.Columns.Count)
For i = 1 To Selection.Cells.Count
    For j = 1 To Selection.Columns.Count
        myArray(i, j) = Selection.Cells(i, j)
    Next j
Next i
End Sub