Insert column in
Brilliant! Thanks!!!
"Tom Ogilvy" wrote:
maybe something like this:
Sub EFG()
Set r = Range("MyRange")
r(r.Columns.Count - 4).EntireColumn.Insert
r.Columns(r.Columns.Count - 4).Copy _
r.Columns(r.Columns.Count - 5)
End Sub
--
Regards,
Tom Ogilvy
"blonde1030" wrote:
I would like a macro to insert a column (not just cells) in a named range.
The new column location would be 5 in from the last column in the range, and
it would need to have the same formulas as the column to its right.
Any help is appreciated!
|