Removing prompt when using VBA to delete all but first row in table

[rizzo93]

My code deletes all but the first row of my table, tblETS. But when the code runs I get prompted with "Delete entire sheet row?" I've deleted rows like this before but this is the first time it's prompting me.

How can I keep that prompt from popping up?

Private Sub PrepMyTable()
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Application.ScreenUpdating = False
    Set wsCopy = Worksheets("Data Validation")
    Set wsDest = Worksheets("Detailed ETS Estimation")
    On Error Resume Next
    wsCopy.Visible = xlSheetVisible
    wsDest.ListObjects("tblETS").DataBodyRange.Rows.Delete
End Sub

 

[Alex Blakenburg]

Do you have a filter applied to the table ?
If you do, ShowAllData before trying to delete the rows.

    With wsDest.ListObjects("tblETS")
        If .ShowAutoFilter = True Then
            .AutoFilter.ShowAllData
        End If
        .DataBodyRange.Rows.Delete
    End With

 

[rizzo93]

Do you have a filter applied to the table ?
If you do, ShowAllData before trying to delete the rows.

    With wsDest.ListObjects("tblETS")
        If .ShowAutoFilter = True Then
            .AutoFilter.ShowAllData
        End If
        .DataBodyRange.Rows.Delete
    End With

Hi Alex and thanks.

Well, I didn't have a filter in effect, but your code seemed to solve my problem anyway. Much appreciated!

 

[Alex Blakenburg]

You're welcome. Glad it fixed it for you.