Sub abc()

Dim frow As Long, lrow As Long
Dim i As Long

frow = Selection.Row
lrow = Selection.Rows(Selection.Rows.Count).Row

For i = lrow To frow Step -2

Rows(i).Delete

Next

End Sub


--
Kaak
------------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
View this thread: http://www.excelforum.com/showthread...hreadid=555914