Michael,

This inserts a column on "Sheet1" at column C (the original column C is
moved to column D)

Note that the insert is done without any select.

''''''''''''''''
Sub AddColumn()
Sheets("Sheet1").Range("C1").EntireColumn.Insert
End Sub
''''''''''''''''''
hth
--

steveB

(Remove 'NOSPAM' from email address if contacting me direct)


"Michael Malinsky" wrote in message
...
I have a VBA application that I've distributed to a couple of clients.
Now
some changes need to be made to the worksheets to conform to various
regulatory requirements. These changes would need to be made to what
could
be called "data" worksheets from which various "form" worksheets pull
information based on lookup (and other) functions.

Say, for example, I need to add a column to the middle of one of the data
sheets. Is it possible to do that programatically without destroying the
data so the client does not have to recreate the data?

TIA
Mike

--
Michael J. Malinsky
Pittsburgh, PA

"I am a bear of very little brain, and long
words bother me." -- AA Milne, Winne the Pooh