Экономическая задача на VBA. В столбце A на рабочем листе находится прибыль/убыток предприятия за N месяцев

Формулировка задачи:

В столбце A на рабочем листе находится прибыль/убыток предприятия за N месяцев. (Заполнить первые N элементов столбца A случайными числами из диапазона [-4000;5000]). Выделить красным цветом в столбце A положительные элементы и найти среди них максимальную прибылью. Максимальную прибыль вывести в диалоговое окно.

Не могу разобраться почему не выводит в диалоговое окно.

Sub cl10()
Dim i as Inteher, N as Integer, max_pr as Integer
N=InputBox("Введите количество месяцев")
For i=1 To N
Cells(i,1)=Int(Rnd()*9000-4000)
Next i
max_pr=0
For i=1 To N
If Cells(i,1)>0 Then 
Cells(i,1).Font.ColorIndex=3
ElseIf Cells(i,1)>0 And Cells(i,1)>max_pr Then
max_pr=Cells(i,1)
End If
Next i
MsgBox "Максимальная прибыль=" And max_pr
End Sub

Решение задачи: «Экономическая задача на VBA. В столбце A на рабочем листе находится прибыль/убыток предприятия за N месяцев»

textual
                            Листинг программы 
                        

                             
Sub June_Karou_2()
    Dim i As Integer, N As Integer, max_pr As Integer
    N = Val(InputBox("Введите количество месяцев", , 12))
    For i = 1 To N
        Cells(i, 1) = Int(Rnd() * 9000 - 4000)
    Next i
    max_pr = 0
    For i = 1 To N
       If Cells(i, 1) > 0 Then
          Cells(i, 1).Font.ColorIndex = 3
          If Cells(i, 1) > max_pr Then max_pr = Cells(i, 1)
       End If
    Next i
    MsgBox "Максимальная прибыль=" & max_pr
End Sub
                        