Unhiding Rows One at A Time Using VBA Macro

I am currently attempting to build a macro that unhides hidden rows one at a time upon the click of a button.

I have got as far as using the following code, but this unhides all rows at the same time.

PHP Code: 

Sub Sheet4_TextBox1_Click()
 Rows("4:33").Select
    Selection.EntireRow.Hidden = False
End Sub 


I want to have about 100 rows to be hidden and to be unhidden one at a time.

Is this possible?

Thanks

Col