Что не так с кодом? VBA

[Саня Новиков]

Мне нужно, чтоб программа находила наибольший элемент в каждой строке матрицы

Private Sub CommandButton4_Click()
s = 0
For i = 2 To 9
    For j = 1 To 5
        max = Cells(i, j)
        If Cells(i, j) < Cells(i, j + 1) Then
            max = Cells(i, j + 1)
            k = 0
            Cells(s, k) = max
            k = k + 1
        End If
    Next j
    s = s + 1
Next i
For i = 2 To 9
    For j = 1 To 5
        Selection.TypeText (Cells(i, j) & Chr(9))
        Selection.TypeParagraph
    Next j
Next i
End Sub

[СтудПом]

Начальная инициализация наибольшего элемента в строке д.б. в начале цикла прохода по строкАМ, а у Вас он в цикле прохода по строКЕ...
дальше не смотрел.