Нарастающий цикл

[DJTreeno]

Доброго всем времени суток!!!

Бьюсь с таким циклом:
m = 7

For z = 1 To m
If Cells(1, k) = "*" Then
m = m + 1
End If
k = k + 1
Next z

Но он зараза выполняется m =7 раз и не хочет нарастать при выполнении условия(((
Помогите плиз!

[IgorGO]

используйте do ... loop
будет Вам наростать, как напишете

[DJTreeno]

Спасибо, понял, я ж его давно использую))

Do While z <> m
If Cells(1, k) = "*" Then
m = m + 1
End If
k = k + 1
z = z + 1
Loop