Code to click "OK" on message box

[ExcelPupper]

Hi, I always encounter this prompt message every time I run my code below. Is there a code that automatically clicks "OK" once it appears? Btw, it appears twice because I made 2 subtotals for two different columns. Thanks!

Sub Subtotal()
Dim Lastrow As Long

' Subtotal per Customer and Class

    Sheets(1).Activate
Lastrow = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:N" & Lastrow).Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6, 11, 12) _
, Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Range("A1:N" & Lastrow + 5).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Subtotal GroupBy:=10, Function:=xlSum, TotalList:=Array(6, 11, 12 _
), Replace:=False, PageBreaks:=False, SummaryBelowData:=True


End Sub

 

[Peter_SSs]

You can stop the message in the first place.
Put near the start of your code Application.DisplayAlerts = False
and near the end Application.DisplayAlerts = True

 

[ExcelPupper]

You can stop the message in the first place.
Put near the start of your code Application.DisplayAlerts = False
and near the end Application.DisplayAlerts = True

Hi I've tried the code below:

Sub Subtotal()
Applications.DisplayAlerts = False

Dim Lastrow As Long

' Subtotal per Customer and Class

    Sheets(1).Activate
Lastrow = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:N" & Lastrow).Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6, 11, 12) _
, Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Range("A1:N" & Lastrow + 5).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Subtotal GroupBy:=10, Function:=xlSum, TotalList:=Array(6, 11, 12 _
), Replace:=False, PageBreaks:=False, SummaryBelowData:=True


Applications.DisplayAlerts = True

End Sub

But I get this error

 

[MARK858]

First of all you need to remove the s from Applications, it is

Application.DisplayAlerts = True

not

Applications.DisplayAlerts = True

You need to do it in both the True and False statements.

 

[ExcelPupper]

First of all you need to remove the s from Applications, it is

Application.DisplayAlerts = True

not

Applications.DisplayAlerts = True

You need to do it in both the True and False statements.

Ohh okay thanks btw. I didn't notice that lol

 

[Peter_SSs]

But I get this error

Just for the future, if you get a code error, as well as giving us the full error message (which you did ), also click the Debug button and tell us which line in the code is highlighted.