If it meets your needs, use it. You understand your needs better than I do.

--
Regards,
Tom Ogilvy



"Arnold" wrote in message
oups.com...
Hi Tom,

Just returned and tried some of your code--I got an 'invalid outside
procedure.'

Range(sAdd).Value=Array("Attend", "Perform" and on and on --
For the Attend column, is this supposed to append each new column with
the heading of "Attend" to the previously-named range="Attndc"?

This is the functionality it should have--recognizing the column
heading (in row 12) and appending that column with other columns with
the same heading.

Also, new columns should be inserted to the right of the last used
column instead of before.

Found this code (not a programmer)--would it work?

Dim rNextCol As Range
Set rNextCol = ActiveCell.End(xlToRight).Offset(0, 1)
or
LastColumn =
ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRang e.Columns.count).Column

Columns(LastColumn + 1).Select

One better than the other?

Lost; thanks;

Eric