Looking to modify this code to include a message box to ask user if they wish to delete data, and if yes then proceed else exit the sub. Tried adding my version of the code but no cigar! (Alansidman

Sub deleteOld1()
myobjarr = Array("Table1")
For Each obj In myobjarr
With Sheet4.ListObjects(obj)
For i = .ListRows.Count To 1 Step -1
If .DataBodyRange(i, 1) <= Date - 21 Then
.ListRows(i).Delete
End If
Next
End With
Next
End Sub