Delete Rows

Ever needed to delete every other row in a worksheet?

Here's how. All you need to remember is to start at the bottom and work up, otherwise Excel gets very confused.

Please ..

Please let me know if it's useful, or what changes or amendments you think could be made.

'' ***************************************************************************
'' Purpose : Returns the String associated with a named operating system environment variable.
'' Written : Andy Wiggins, Byg Software Limited
''
Sub DeleteRowDemo()
Dim x
    For x = 14 To 2 Step -2
        Rows(x & ":" & x).Delete
    Next
End Sub

-

Published: 20-Jun-2004
Last edited: 05-Jun-2005 19:28