导航到新屏幕并返回后，动画未重置

Question

导航到新屏幕并返回后，动画对象的状态保持不变。也就是说，动画完成后，我将在StatusListener的帮助下导航到新屏幕，但是，一旦我从该屏幕返回，动画状态就不会反转。这不是理想的行为，对此我将提供一些帮助或解释。

Sub FormulaKiller()
    Dim sh As Worksheet

    For Each sh In ActiveWorkbook.Worksheets
        With sh.Cells
            .Copy
            .PasteSpecial xlPasteValuesAndNumberFormats
        End With
    Next sh
End Sub