try this
Sub deleteeveryotherrow()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -2
Rows(i).Delete
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Curt J" <Curt wrote in message
...
I have region containing roughly 100 rows. I would like to create a macro
that deletes every other row within the region. I would like to start by
deleting row 2 & then continue to do so for the rest of the region.

Please advise.

Thanks