delete whole column if 1:20 contains any one of 5 pieces of text

[jamiepullen]

hi, i would like to be able to use a macro that will delete all columns in the sheet that do not contain one of 5 pieces of text in cells 1 to 20.

It is driving me mad, i have managed to find macros that delete empty columns, but they do not remove the columns that do not contain any of the 5 words. often the cells are empty down to row 5, when the data starts

Any help would be great as it would make life a lot easer for me!

Regards, Jamie