Macro to insert columns between columns (modify yourselves)

[Trader11]

Hello,

I've read a dated thread with the same subject on the forum, but I thought posting a new one would be beneficial. As the recommended macros didn't work the way I wanted on my excel.

The macros were kind of tailor made and didn't allow me to edit them. When I changed the numbers to change the columns to be added, macro went crazy and added, some 8 columns, instead of adding 2, for example.

So what I ask is a macro that will allow me to insert as many columns as I want. But this time I'll appreciate if you can show which part of the macro to change if we want to insert 1 column or 3 columns etc. so everyone can modify accordingly.

Thank you.

 

[VoG]

Hi. Maybe like this

Sub InsCols()
Dim i As Long
i = Application.InputBox("How many columns?", Type:=1)
If i > 0 Then ActiveCell.Resize(, i).EntireColumn.Insert
End Sub

 

[Trader11]

Thanks.

When I run the macro a window opens allowing me to isnert a number, when I do so, the macro only adds that number of columns to the left of column A.

ps: I used both with and without quotation marks/

 

[VoG]

Click in the column to the left of where you want to insert columns then run the macro. When prompted enter the number of columns (without quotes).

 

[Trader11]

Well I maybe expressed myself wrongly.

I have some hundred columns and I want to insert columns between all of them at the same time and at the sime size.

1 column to the left of all columns, for example.