Hide every other row in MS Excel until the end of the document

[MicheleDavidson]

Hi, I need to have a VB Macro to hide every other row in MS Excel until the end of the document.

For Example:

I need to starte at row 3, then hide 5, 7, 9, 11, all odds until the end.

Thanks.

[SammyB]

You should be able to figure that one out, LOL. I got a little fancy: the macro is a toggle. If row 3 is visible, then hide the odds. If row 3 is already hidden, then show the rows:

Sub HideAndShow()
    ' Determine last row
    Dim n As Integer, i As Integer
    n = Cells.SpecialCells(xlCellTypeLastCell).Row
    ' Determine whether to hide or show
    Dim isHidden As Boolean
    isHidden = Rows(3).Hidden
    ' Hide/Show the odd rows
    For i = 3 To n Step 2
        Rows(i).Hidden = Not isHidden
    Next i
End Sub

[MicheleDavidson]

Yes, it worked like a charm! Thank you so much. You need to be working here!!

[SammyB]

Looks like I am ;o)
Did the IFERROR function work for you?

[MicheleDavidson]

I thought about it and tried something different which ended up working a lot better.

Thanks again for all your help, you have saved me so much time and trouble, I really appreciate it.