excel vba‎ > ‎

VBA Do Until Loop

posted Feb 18, 2020, 11:53 PM by Roberto Felicini

Sub Do_Until_Ex2()
Dim Y As Long
Y = 1
Do
  Sheets("Example 2").Cells(Y, 1).Value = Y * Y
  Y = Y + 1
Loop Until Y = 11

End Sub
Comments