Hi,

Right click your sheet tab, view code and paste this in and run it

Sub Sonic()
Rows(20).Insert Shift:=xlDown
Cells(19, 1).EntireRow.Copy Destination:=Cells(20, 1)
Cells(21, 1).EntireRow.Copy Destination:=Cells(19, 1)
Rows(21).EntireRow.Delete
End Sub

Mike

"kirkm" wrote:


What would be the best way, in code, to swap entire lines 19 and 20
in sheet1 ?

Thanks - Kirk