Luka

Couple of examples...

Sub ActivateNextBlankDown()
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub


Sub Interval_Entry()
i = 1
todo = InputBox("Enter a number")
Do While todo * i < 910
Cells(todo * i, 1) = 88
i = i + 1
Loop
End Sub


Gord Dibben Excel MVP

On Mon, 27 Dec 2004 11:59:01 -0800, "Luka"
wrote:

I need "Do While" Function in Excel,but is not in. How I can replace it?