連休中に30本ぐらいマクロ講座の動画を見ました。
プロのコーディングを解説付きで見れるので非常に勉強になります。
その中でボールを飛ばす課題というのがあったので挑戦してみました。
因みに私はボール"○"ではなく"☆"を飛ばしました。あと、移動した後に☆が消えてしまわないように少し記述を追加しました。DoEventsを書き忘れましたが、こちらは無限Loopに陥った際、回避するために重要な記述との事でした。
会社でやってたら怒られてしまいそうな課題ですが、
成功したとき思わずガッツポーズしてしまいました（笑）
xvax_vbaさんの動画解説は非常にわかりやすいです
<コーディング>
Sub ボール残像消す()
Dim i As Long
Dim j As Long
For i = 2 To 10
Cells(2, i) = "☆"
Application.Wait [now()+"0:0:0.2"]
j = 1
Do While j < 10
Cells(2, j) = ""
j = j + 1
Loop
Next
End Sub