Delete multiple columns without specified cell content

[mrbarba]

My sheet has about 300 columns of data and I want to delete all columns that don't contain specific names in Row 2, i.e., TEST1, TEST2, TEST3, TEST4. This is not formated as a table.
The code below "works" but seems to go into an infinite loop based on Debug.Print i. Without, i = i - 1, the code will complete without fully deleting columns, so I have to re-run multiple times.

Please Login or Register  to view this content.

[jindon]

Try

Please Login or Register  to view this content.

[mrbarba]

Try

Please Login or Register  to view this content.

Thanks for the help jindon. This did the trick.