Deleting alternative rows

[Guest]

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

 

[Don Guillett]

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

 

[Guest]

Perfect, thanks for the help Don.

 

[Don Guillett]

Glad to help