I wish to add 4 columns in an Excel Sheet on the click of a button. Can
anyone suggest or help me in doing the same ?

An Excel sheet has 256 columns; no more and no less. You can't add 4
columns.

--

Vasant


"Dhiraj" wrote in message
...
I wish to add 4 columns in an Excel Sheet on the click of a button. Can
anyone suggest or help me in doing the same ?

Vasant is right: you can't "Add" collumns. But if you mean "Insert"
collumns, you can do some this like this:

Sub InsCol()
Columns("E:H").Insert Shift:=xlToRight
End Sub

This will insert 4 collumns before collumn E.