Try this idea
Sub insertcols()
mc = "o" 'tested with "d"
cti = 27 ' tested with 2
Columns(mc).Offset(, -cti).Resize(, cti).Insert
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"NM" wrote in message
...
Hi,

I have coulmns A through CJ and I want to add 27 coulmns before column O.
What is the easiest way to do it?

Thanks for your help.
Nee