Try this

Option Explicit

Sub Test()

ActiveCell.EntireColumn.Insert

End Sub



*** Sent via Developersdex http://www.developersdex.com ***