Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Do-While loop with ActiveCell

Sub DoWhileDemo()     Do While ActiveCell.value <> Empty         ActiveCell.value = ActiveCell.value * 2         ActiveCell.offset(1, 0).Select     Loop End Sub