Disable warning when execute vba in excel

[Vincent88]

When execute below vba, the warning pop up. How to disable it or write script to not displaying this and accept YES.
CODE
Sub NewTable()
If ActiveWorkbook Is ThisWorkbook Then
Dim ws As Worksheet
'Set ws = Sheet1
Set ws = ActiveSheet
On Error Resume Next

ws.Copy before:=ActiveSheet
szToday = Format(Date, "d mmm yyyy")
ActiveSheet.name = szToday

'Sub ClearTable()
Dim T As ListObject: Set T = ActiveSheet.ListObjects(1)
With T.DataBodyRange
If .Rows.Count > 1 Then .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
On Error Resume Next
.Rows(1).SpecialCells(xlCellTypeConstants, 23).ClearContents
ActiveSheet.OLEObjects.Visible = True
ActiveSheet.OLEObjects.Delete
ActiveSheet.Pictures.Visible = True
ActiveSheet.Pictures.Delete
End With
End If
End Sub

 

[taurean]

Modify your code to suppress alerts that application displays.

Application.DisplayAlerts = False
'Your code
Application.DisplayAlerts = True