Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

A Do-Loop Until loop with IsEmpty

Sub DoLoopUntilDemo()     Do         ActiveCell.value = ActiveCell.value * 2         ActiveCell.offset(1, 0).Select     Loop Until IsEmpty(ActiveCell.value) End Sub