Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Use Do Loop While to change ActiveCell value

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