ilastrow = Cells(Rows.Count,"A") .row
if iLastRow Mod 2 < 0 then
iLastRow = iLastrow -1
End If
For i = ilastrowTo 1 Step 2
rows(i).delete
mext i

--
HTH

Bob Phillips

"khen1" wrote in message
...
I'd like to create a macro that deletes every other row. When I record the
macro it only deletes the cell I used for recording. How do I make the
macro
so it runs on any cell?