vba delete columns based on header value

[t6116ks]

Hello,
I would like to call a Sub anywhere in my workbook to delete all columns containing "*" in the header of one specific worksheet "data".
several postings I tried work ok on a few columns, buy my 'data" sheet contains about 200 columns (so the sub gets stuck and I have to abort...)

I would appreciate if you can lead me through it.
Thanks!

 

[HDS1976]

Hi all, how can this be used to use a value in another cell rather than specifying "*" in the script. For example, if I have a value in e1, could I do that?