Vincent88
Active Member
- Joined
- Mar 5, 2021
- Messages
- 382
- Office Version
- 2019
- Platform
- Windows
- Mobile
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
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