Cant run insert row through loop

  • Thread starter Thread starter WashoeJeff
  • Start date Start date
W

WashoeJeff

Anyone know why the following code wont run through a loop without an error
The "Selection.insert" wont insert a row the second time.............it will
do it the first time through a loop then when the value "Current_Row"
increases it bombs I also tried "Rows(Current_Row).insert" with the same
results Current row is dimensioned as an integer


Current_Row = Range(Range(ActiveCell.Address).Address).Row
ActiveCell.Offset(1, 0).Select
Next_Address = ActiveCell.Address

Rows(Current_Row).Select
Selection.Insert Shift:=xlDown
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Can Vba workout if a selection is part of a group? 0
datasets 1
Slow sorts on Excel 2
Keeping formulas on an insert 1
Insert Multiple rows with data 4
Insert Row Above and Calculate Difference Between Dates 2
Copying a row and pasting the same below it with just formulas 3
Changes in How Code Acts After Upgrade of Excel 2

Back
Top