Найти сумму элементов матрицы, вычислить максимальный элемент

Private Sub CommandButton2_Click()
Dim MAX As Integer
Dim i As Integer
Dim j As Integer
Dim SUM As Integer
Dim flag As Integer
SUM = 0
flag = 0
If OptionButton1.Value = True Then
For i = 2 To m + 1
For j = 1 To n
SUM = SUM + Worksheets("Матрица").Cells(i, j)
Next j
Next i
Worksheets("Матрица").Cells(11, 1).Value = "Сумма элементов ="
Worksheets("Матрица").Cells(11, 2).Value = SUM
MsgBox "=" & SUM, 48, " Сумма элементов"
Exit Sub
End If
If OptionButton2.Value = True Then
MAX = Worksheets("Матрица").Cells(2, 1).Value
For i = 2 To m + 1
For j = 1 To n
If MAX < Worksheets("Матрица").Cells(i, j) Then
MAX = Worksheets("Матрица").Cells(i, j)
End If
Next j
Next i
Worksheets("Матрица").Cells(11, 1).Value = "Максимальный элемент"
Worksheets("Матрица").Cells(12, 1).Value = MAX
MsgBox "=" & MAX, 48, " Максимальный элемент"
Exit Sub
End If
If OptionButton3.Value = True Then
For i = 2 To m + 1
For j = 1 To n
d = Worksheets("Матрица").Cells(i, j)
If d / 2 = Int(d / 2) Then
Worksheets("Матрица").Cells(i, j) = d + 1
flag = 1
End If
Next j
Next i
If flag = 1 Then
MsgBox "Замена произошла", 64, "Замена"
Else
MsgBox "Замены нет, все элементы нечетные", 64, "Замена"
End If
End If
metka:
End Sub