вывод значений ячеек в цикле

[apazovo]

Привет Всем. У меня такая задача. Надо вывести значения в ячейках пока в следующей ячейке нет значения. Я написал вот такой макрос, но не работает.

Public Sub ww()
Dim i As Integer
Dim t As String
i = 1
Do
t = "A" & Trim(Str(i)) & ""
MsgBox (Range(t))
i = i + 1
Loop While Range(t).Value = False
End Sub

[IgorGO]

Public Sub ww()
  Dim i As Integer
  Dim t As String
  i = 1
  t = "A" & i
  Do While Range(t) <> ""
    MsgBox (Range(t))
    i = i + 1
    t = "A" & i
  Loop
End Sub

[apazovo]

Спасибо! Работает.