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

Люди, помогите чайнику, плз!
Никак не могу вывести переменную из цикла для ее дальнейшего использования в другом цикле. Вроде объявил ее как глобальную, но когда ее вытаешься вывести после завершения цикла - ничего не получается.
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

[Bespalov Roman]

Может у тебя условие не работает? Даёшь *.xls!

А вообще Exit Sub здесь странно выглядит. Может имелось в виду Exit For? И процедуру закрой, хотя она должна быть уже закрыта.

[cd19]

Объясни сначала, что вообще хочешь сделать в этом sub

Уже все. Оказалось, что косяк в exit sub (надо было поставить exit for). Большое спасибо!