Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Do-Until loop and IsEmpty

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