Pages

Wednesday, March 21, 2012

DoLoopUntil

Sub DoLoopUntilDemo()

Do

ActiveCell.Value = ActiveCell.Value * 2

ActiveCell.Offset(1, 0).Select

Loop Until IsEmpty(ActiveCell.Value)

End Sub

 

No comments:

Post a Comment