Moving columns about

[green biro]

I need to reorder some columns on my worksheet along the lines of the
following:
- First 12 columns fixed
- Next, any coumns that have the text "essential" in the column header
- Next, any columns that have the text "important" in the column header
- Next any columns where the header doesn't contain "essential", "important"
or "unimportant"
- Lastly any columns that contain the text "unimportant"

I dabbled with "cut destination:" without success. The main problem being
that it's difficult to move columns whilst enumerating through them.

My next idea is to temporarily add a row, assign values in this row
according to content of column header, sort columns by the new row then
delete the new row. That seems like an awful lot of programming though.

Does anybody have anything slicker that they could share with me?

Thanks in anticipation.

BT

 

[Don Guillett]

How about a macro to just insert a row at the top>use a select case to put
a,b,c,etc based on your criteria>sort left to right>delete the row(if
desired-or hide)