SendKeys "{ESC}" Not working on Code

[countryfan_nt]

Hello friends, Hope all is well!

Strange thing, the below code works but Very slow. When I press the Esc button the code runs fast & smooth.
Please help me apply the Esc command within the code please.

Thank you So much in advance!

Sub B_REV()
Dim aSeries As Series

Application.ScreenUpdating = True
ActiveSheet.ChartObjects("Chart 9").Select
    
    For Each aSeries In ActiveChart.SeriesCollection
        Select Case UCase(aSeries.Name)
        Case "REV"
        Case Else
            aSeries.Delete
            End Select
        Next aSeries
          
    num_rows = Sheet6.Range("A1").CurrentRegion.Rows.Count - 1
        ActiveChart.SeriesCollection.NewSeries
                ActiveChart.SeriesCollection(2).XValues = Sheets("REV").Cells(2, 1)
                ActiveChart.SeriesCollection(2).Values = Sheets("REV").Cells(2, 2)

 For r = 2 To num_rows
      
    Sheets("REV").Cells(r, 4) = Sheets("REV").Cells(r, 1)
    Sheets("REV").Cells(r, 5) = Sheets("REV").Cells(r, 2)
    ActiveChart.SeriesCollection(2).XValues = Sheets("REV").Cells(r, 4)
    ActiveChart.SeriesCollection(2).Values = Sheets("REV").Cells(r, 5)

            If Sheets("chart").Range("AJ1") = "True" Then
                      
           Application.Wait Now()
                                 
        End If
    Next r

        ActiveChart.SeriesCollection(2).Delete
End Sub

 

[bobsan42]

Unless there is a very specific reason for the opposite I suggest you start by removing these three lines from your code.

            If Sheets("chart").Range("AJ1") = "True" Then
           Application.Wait Now()
        End If

SendKeys better be avoided unless absolutely necessary.
its behavior is not exactly unpredictable, but it needs complete control over the environment to be certain of the outcome.

 

[Norie]

What pressing ESC could be doing is cancelling calculation which is probably why doing so speeds things up.

Have you tried setting calculation to manual at the start of the code and setting it back to automatic at the end?

That would kind of be like the equivalent of hitting ESC.

 

[countryfan_nt]

Great & thank you! Can you please help me, where is it best to place the lines below in the code (which lines of the code)?

Application.Calculation = xlManual

Application.Calculation = xlAutomatic

 

[Norie]

Set calculation to manual at the same spot you set turn screen updating off and set it back to automatic before End Sub.