how do you swap 2 rows in excel 2007 i need a macro to pick 2 rows then swap then over

A quick answer is to record a macro as you do a "Cut - Insert Cut Cells" for the 2 rows that you want to swap. Every time you run the macro, those 2 rows will swap. Other than that, we're going to need some more detail.

This will ask for the rows to swap. Make sure you enter the lower row number first. Sub RowSwapper() rw1 = Application.InputBox("Enter Lower Row number") rw2 = Application.InputBox("Enter Higher Row number") Rows(rw1).Cut Rows(rw2).Insert Shift:=xlDown Rows(rw2).Cut Rows(rw1).Insert Shift:=xlDown End Sub Macro writing tip: Record what you want to do and then clean up/modify the code produced by the recorder.

hi DerbyDad03 tried your macro swaps rows then puts them back again can you stop them from going back thanks robsoft

your macro swaps rows then puts them back again Not exactly. If the rows are adjacent then the macro works. If the rows are not adjacent then the macro does not work. MIKE http://www.skeptic.com/

I'm not sure what you guys are doing, but here's what happens when I use my code: I start with this: A 1 One 2 Two 3 Three 4 Four 5 Five 6 Six I run my code (copied directly from this forum) and enter 2 for the Lower Row and 5 for the Higher Row. I end up with this: A 1 One 2 Five 3 Three 4 Four 5 Two 6 Six Didn't I just swap rows 2 and 5?

I got it to work, but had to change the code to: Sub RowSwapper() rw1 = Application.InputBox("Enter Lower Row number") rw2 = Application.InputBox("Enter Higher Row number") Rows(rw2).Cut Rows(rw1).Insert Shift:=xlDown Rows(rw1).Cut Rows(rw2).Insert Shift:=xlDown End Sub As I said in Response #4 If the rows are adjacent then the macro works. What happened when you tried to swap non adjacent rows, is it would move the lower row up one but do nothing with the upper row. EDIT: I think we got Upper & Lower confused.... I was thinking Lower Row meant "lower down the sheet" not Lower Numbered Row. :-) That's why mine worked for me the way I was working. MIKE http://www.skeptic.com/