Parar una función en excel

Necesito parar una función que anima un gráfico y cuando hay demasiados datos, es tedioso esperar a que termine, aun bajando la velocidad de la animación. El código que puse es este

Private Sub Animar_Click()
Dim i As Integer
For i = 1 To 396:
Range("P1").Value = i
Application.Calculate
Sleep (75)
Next
End Sub

Y aprovecho para otra pregunta, necesito el código para incrustar un botón que haga ir a la fecha del sistema y solo muestre eso, estaría ligado con la celda "P1" del código anterior, pero no debería interferir con la otra función.

Aclaración: La celda busca en una matriz de fechas y datos, es mi tabla base para actualizar que esta en otra hoja del libro,

Gracias anticipadas