Sub oota(millisek)
  Application.Wait (Now() + millisek / 86400000#)  'millisekundeid päevas
End Sub

Private Sub liigu1_Click()
  Dim joon As Shape, y
  Set joon = ActiveSheet.Shapes.AddLine(300, 20, 300, 100)
  y = 20
  Do
    joon.Top = y
    oota (700)
    y = y + 20
  Loop Until y > 100
  joon.Delete
End Sub