Identifying column headings, keep and delete

[jscholds]

Hi all,

I would like to search and find column headings from a predefined list. When a column/s has been identified I would like to keep it/them and delete remaining ones.

Like..

Blue--Red--Orange--Green--Pink--Black--Yellow
1--------1------1--------1------1------1-------1
2--------2------2--------2------2------2-------2
3--------3------3--------3------3------3-------3
4--------4------4--------4------4------4-------4

In this example I want to keep columns called Red and Pink, but delete the rest. There is a catch though, the sheet won't have the same structure all the time i.e. in the example above Red is in column B and Pink in column E, this might change to A and M.

For the example above the macro would give me a sheet with...

Red--Pink
1-------1
2-------2
3-------3
4-------4

I know the names of the column headings I would like to find and I don't mind copying columns to a new sheet if that is that is necessary.

At the moment I program the macro individually to fit the structure of the excel sheet I am currently working using, however it takes time there and manual delete increases chance for errors.

Running W2000 on excel 2000.

Hope someone can help..

Jakob