Deleting Columns Via Macro

[trainer75]

Hi,
Hope someone can assist me, i have am new to the whole macro/formula experience and have spent 5 hours today trying different methods of trying to do this.

I have to run reports every week and need to streamline how long it take me to do, so i want to delete out columns in excel that i do not need, only thing is week by week the number of columns changes so cannot use a fixed formula/macro, so started looking at deleting via certain text in one of the cells, which i done by the following:-
Ctrl F chose find and entered the data, then Find All, Selected Ctrl A to highlight all values with the data required, closed down dialog box and then right click delete entire column, job done but when i done this in a macro it deleted the whole sheet.

Hope someone can help me,
Thank you in advance

 

[steve the fish]

You could guard against trailing spaces by changing the Select Case line to:

Select Case Trim(Cells(1, i).Value)

 

[trainer75]

WOW, yes it does
so if i add the extra space at the end of the word that should pick it up?
Im learning every day, hope to get a greater knowledge of the product like yourself one day,
You are a superstar, works brilliantly, thank you most sincerly for your help