Inserting multiple columns

  • Thread starter Thread starter Mitch
  • Start date Start date
M

Mitch

Is there a simpler way to insert 5 columns other than the
following:

ActiveCell.Offset(0, 12).EntireColumn.Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight

Thanks for the help
 
Hi
try
ActiveCell.Offset(0, 12).Resize(1,5).EntireColumn. _
Insert Shift:=xlToRight
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Insert columns and values programmatically with IF statement 9
Can Vba workout if a selection is part of a group? 0
excel macro missing worksheets 9
Adding Columns in Excel 2007 (2003 Compatibility Mode) 2
Macro Needed 1
VBA Error 1
Need Help with VBA code for an Excel Model Macro 5
Easier way to insert columns 9

Back
Top