Macro to Insert Columns and Titles

boldcode · Jun 28, 2011

Hello,

I want to create a Macro that inserts five new columns after COLUMN F in the ACTIVE WORKSHEET. In addition, after these columns have been inserted, I wanted the Macro to insert the following Titles into the following cells:

Column G Row 1: Cars

Column H Row 1: Models

Column I Row 1: Types

Column J Row 1: Activity

Column K Row 1: Destination

If further explanation is needed please let me know.

Thanks!

VoG · Jun 28, 2011

Try

Code:

Sub InsCols()
Columns("G").Resize(, 5).Insert
Range("G1").Resize(, 5).Value = Array("Cars", "Models", "Type", "Activity", "Destination")
End Sub

Rick Rothstein · Jun 28, 2011

Here is a macro that should do what you want...

Code:

Sub InsertAndLabel()
  With Columns("F").Offset(, 1)
    .Resize(, 5).Insert
    .Resize(1, 5).Value = Array("Cars", "Models", "Types", "Activity", "Destination")
  End With
End Sub

boldcode · Jun 28, 2011

VoG and Rick Rothstein,

Both solutions worked great!! Thank you!

- BC

Macro to Insert Columns and Titles

boldcode

Active Member

Excel Facts

VoG

Legend

Rick Rothstein

MrExcel MVP

boldcode

Active Member

Similar threads

Forum statistics

Share this page

Macro to Insert Columns and Titles

boldcode

Active Member

Excel Facts

VoG

Legend

Rick Rothstein

MrExcel MVP

boldcode

Active Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock