adding columns and headers with a macro

[tabspace]

I would like to add a button that can create 5 columns at the end right of the table. Each new set should have 2 rows of headers, the first one, on row 1 should be a merged cell of 5 cells that says TITLE. The second row should have the following headers (one for each cell): M, T, W, T, F (for the days of the week)

Could anybody help with this?

Thanks!

Jim

 

[jim may]

I don't believe that additional columns added to a table can be "MERGED", so the below code Adds 5 columns to the right of the existing table
and labels each column Mon - Fri. Hope this helps (getting you started)...

Sub Foo()
Dim Ncol As Long
Application.EnableEvents = False
Ncol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
Range(Cells(1, Ncol), Cells(1, Ncol + 4)) = Array("Mon", "Tue", "Wed", "Thu", "Fri")
Application.EnableEvents = True
End Sub

 

[tabspace]

Fantastic! Thank you!

 

[tabspace]

Hi Jim,

Thanks again. I have a question though. How can I make that be on row 2? or 3? or whatever row I want it to be?

THanks!

 

[jim may]

Note my refetence (s) to cells (1,
To change to row 2 modify code to
cells (2,

 

[tabspace]

Thanks!