Pages

Wednesday, March 21, 2012

DoLoopWhile

Sub DoLoopWhileDemo()

Do

ActiveCell.Value = ActiveCell.Value * 2

ActiveCell.Offset(1, 0).Select

Loop While ActiveCell.Value <> Empty

End Sub

 

No comments:

Post a Comment