Hi
Select the two row number headings and run this

Sub swaprow()
Dim Row1 As Range, Row2 As Range
Dim Temp1 As Variant, Temp2 As Variant
Set Row1 = Selection.Areas(1)
Set Row2 = Selection.Areas(2)
Temp1 = Row1.Value
Temp2 = Row2.Value
Row1.Value = Temp2
Row2.Value = Temp1
Set Row1 = Nothing
Set Row2 = Nothing
End Sub

regards
Paul

On Mar 13, 8:02*am, kirkm wrote:
What would be the best way, in code, *to swap entire *lines 19 and 20
in sheet1 ?

Thanks - Kirk