Delete & Move columns based on Heading content

I get a file that has too many columns in it and they are not in the correct order
Here’s a condensed version of the macro to delete & rearange:

Please Login or Register  to view this content.

The problem is occasionally there are new columns added so the macro has to be manually changed.

What I’d like to do is write code that deletes ALL columns whose headings (ROW 1) are not specified. Then rearrange them in the correct order.

Example
Spreadsheet arrives with the column headings of
RED BLUE GREEN YELLOW BLACK WHITE

Delete all columns except heading equals Red, Green, Black or Yellow
(is there a limit to the columns headins I can list?)
Column order should be
Column 1 = Red
Column 2 = Black
Column 3 = Green
Column 4 = Yellow

This code may solve your problerm:

Please Login or Register  to view this content.

What you need to do is to modify the block:

HTML Code: 

Regards,
Antonio

Thank you - works like a charm