Pages

Wednesday, March 21, 2012

Do-While loop

Sub DoWhileDemo()

Do While ActiveCell.Value <> Empty

    ActiveCell.Value = ActiveCell.Value * 2

    ActiveCell.Offset(1, 0).Select

Loop

End Sub

 

No comments:

Post a Comment