Delete the entire table

Hello Experts,

I am trying to delete information in a table once it has been filtered.
All the information that appears in the table after it was filtered has to be deleted.

I have the following attempt to write the macro:

With Sheets("Initiative Summary").ListObjects("InitiativeTbl")
         .Range("Functional Area").EntireColumn.Select
         Selection.EntireRow.Delete
    End With


 "Functional Area" is the name of the column in the InitiativeTbl table. I prefer to use the name of the column and not a cell number in case there are some changes or additions made to the table.

Could you please help me figure out what's the best way to write this macro?

Thank you
jmac001Asked:
Who is Participating?
 
nutschCommented:
Try:
Sheets("Initiative Summary").ListObjects("InitiativeTbl").listColumns("Functional Area").databodyrange.specialcells(xlCellTypeVisible).Delete

If you want to avoid the delete warning, surround the code with

application.displayalerts=false
'...
application.displayalerts=true

Open in new window

Thomas
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.