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
Selection.Rows(i).Delete Shift:=xlShiftUp
Next

End Sub

--
Regards,
Tom Ogilvy



"Tufail" wrote in message
...
hello,

I want make a Macro for deleting in selection data every second row, plz
help me.

Thanks/Tufail