Macro to unhide next hidden row

[jameshunt83]

On a worksheet I have 150 hidden rows. I have a button that I need to assign a macro to that will unhide the next unhidden row on the sheet

 

[VoG]

Try

Private Sub CommandButton1_Click()
Dim i As Long
i = 1
Do Until Rows(i).Hidden = True
    i = i + 1
Loop
Rows(i).Hidden = False
End Sub

 

[jameshunt83]

Perfect thanks

 

[VoG]

You are welcome. This will prevent a crash if all rows are unhidden

Private Sub CommandButton1_Click()
Dim i As Long
If Columns("A").SpecialCells(xlCellTypeVisible).Count = Rows.Count Then Exit Sub
i = 1
Do Until Rows(i).Hidden = True
    i = i + 1
Loop
Rows(i).Hidden = False
End Sub