To insert a column to the right of the presently selected cell:

ActiveCell.Select
ActiveCell.Offset(0, 1).Select
Selection.EntireColumn.Insert
ActiveCell.Offset(0, -1).Select


--
LauraBorealis
------------------------------------------------------------------------
LauraBorealis's Profile: http://www.excelforum.com/member.php...o&userid=33789
View this thread: http://www.excelforum.com/showthread...hreadid=541836