Не могу вывести перемнную из цикла

[NP]

Люди, помогите чайнику, плз!
Никак не могу вывести переменную из цикла для ее дальнейшего использования в другом цикле. Вроде объявил ее как глобальную, но когда ее вытаешься вывести после завершения цикла - ничего не получается.
Public knp As Integer
Public Sub CommandButton1_Click()
Dim i As Long
Dim n As Integer
n = 1
'Определяем количество непустых ячеек в листе
For i = 1 To 50000
If Sheets("Новый прайс").Cells(n, 7) = vbNullString Then
knp = n
Exit Sub
End If
n = n + 1
Next i
otvet2.Caption = knp

[corgi]

тебе нужно использовать exit for а не exit sub