VBAマリオを作成中にExcelがフリーズする

Question

エクセルのvbaで、マリオを左右に動かしたい。

エクセルのvbaを使ってマリオを再現しているのですが、
該当するマクロを実行し一定時間経つとExcelが固まってしまいます。

仕組みとしては、セルをドットに見立てて事前にイラストを作成し、
特定のキーボードが入力されたらそのイラストをcopyで貼り付け、
パラパラ漫画のように動いてるようにしています。

該当のソースコード

Option Explicit
Private Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)


Sub MarioMove()

Dim marioR1 As String
marioR1 = "A1:Y16"
Dim marioR2 As String
marioR2 = "A19:Y34"
Dim marioR3 As String
marioR3 = "A37:Y52"

Dim marioL1 As String
marioL1 = "AB1:AZ16"
Dim marioL2 As String
marioL2 = "AB19:AZ34"
Dim marioL3 As String
marioL3 = "AB37:AZ52"

Dim i As Integer
Dim high As Integer
Dim speed As Integer
Dim time As Integer

high = 159
speed = 3
time = 1
i = 1

'Sheets("ちびマリオ").Range(marioR1).Copy Sheets("ステージテスト").Cells(high, i)

  Do While i < 430
    If GetAsyncKeyState(vbKeyRight) Then
      'Sleep time
      i = i + speed
      Sheets("ちびマリオ").Range(marioR1).Copy Sheets("ステージテスト").Cells(high, i)
      'Sleep time
      i = i + speed
      Sheets("ちびマリオ").Range(marioR3).Copy Sheets("ステージテスト").Cells(high, i)
      'Sleep time
      i = i + speed
      Sheets("ちびマリオ").Range(marioR2).Copy Sheets("ステージテスト").Cells(high, i)
    ElseIf GetAsyncKeyState(vbKeyLeft) Then
      'Sleep time
      i = i - speed
      Sheets("ちびマリオ").Range(marioL1).Copy Sheets("ステージテスト").Cells(high, i)
      'Sleep time
      i = i - speed
      Sheets("ちびマリオ").Range(marioL3).Copy Sheets("ステージテスト").Cells(high, i)
      'Sleep time
      i = i - speed
      Sheets("ちびマリオ").Range(marioL2).Copy Sheets("ステージテスト").Cells(high, i)
    ElseIf GetAsyncKeyState(vbKeyLButton) Then
      GoTo continue
    End If
  Loop
continue:
End Sub

試したこと

キーボードに何も入力せず、何も操作しなくとも固まりました。

補足情報（FW/ツールのバージョンなど）

Windows10、Excel 2010で作成しています。

Answer 1

作りがよくわかりませんが、Do～Loopで条件に達するまでループさせる作りであるなら、DoEventsを追加すれば固まることは防げると思います。

    Do While i < 430
        DoEvents
        If GetAsyncKeyState(vbKeyRight) Then