Macro to add columns into worksheet

  • Thread starter Thread starter Blubber
  • Start date Start date
B

Blubber

I wrote a macro to add columns into a worksheet called "DrListWorkCopy"
For some reason the macro incerted 3 extra columns at the end of column"Z".

Anyone see where I went wrong?

These are my codes

Public Sub IncertColDrListWorkCopy()
Dim WorkCopy As Worksheet
Set WorkCopy = Sheets("DrListWorkCopy")
With WorkCopy
Columns("L").Select
Selection.Insert 'Shift:=xlToLeft
Columns("O").Select
Selection.Insert 'Shift:=xlToLeft
Columns("Q").Select
Selection.Insert 'Shift:=xlToLeft
Columns("W").Select
Selection.Insert 'Shift:=xlToLeft
Columns("Z").Select
Selection.Insert 'Shift:=xlToLeft
End With
End Sub
 
Nothing pops out right away.

But when funny things happen on inserting/deleting, I look for merged cells.
They are a pain.

I do my best to not use them.
 
Wow Dave

Really shows how experienced you are. Yes, its due to merged cells adjacent
to column Z.
Thanks!!!
 
Back
Top