Animate Chart in Excel

Below is a code that will scroll thru charts.  I would like to know if there is a way that a user can use a keyboard to start and pause the animation without using the wait command?

Sub Animate()
    Dim oColumn As Range
    With Worksheets("Sheet1")
    For Each oColumn In .Range("SourceRange").Columns
        oColumn.Copy destination:=.Range("DestinationRange")
        Application.Wait Format(Now + TimeValue("00:00:01"), "hh:mm:ss")
    Next oColumn
    End With
End Sub

Thank you for your help!