Select or Color Alternate Even/Odd Rows

    Sub SelectAlternateOddRows()
        Dim MyCell As Range
        Dim rNew As Range
        For Each MyCell In ActiveSheet.UsedRange.Cells
            If MyCell.Row Mod 2 = 1 Then
                If rNew Is Nothing Then
                    rNew = MyCell
                Else
                    rNew = oEXA.Union(rNew, MyCell)
                End If
            End If
        Next
        If Not rNew Is Nothing Then
            rNew.EntireRow.Select
        End If
    End Sub

    Sub SelectAlternateEvenRows()
        Dim MyCell As Range
        Dim rNew As Range
        For Each MyCell In ActiveSheet.UsedRange.Cells
            If MyCell.Row Mod 2 = 0 Then
                If rNew Is Nothing Then
                    rNew = MyCell
                Else
                    rNew = oEXA.Union(rNew, MyCell)
                End If
            End If
        Next
        If Not rNew Is Nothing Then
            rNew.EntireRow.Select        End If
    End Sub

Comments

Anonymous said…
no mention of what oEXA is
Unknown said…
How I can assign colors to the alternative rows?