Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. A Do-Loop Until loop with IsEmpty
Sub DoLoopUntilDemo()
    Do
        ActiveCell.value = ActiveCell.value * 2
        ActiveCell.offset(1, 0).Select
    Loop Until IsEmpty(ActiveCell.value)
End Sub