Unhide rows macro

[GoBucks]

I am looking for a macro that will look in column C from row 7 down to 206
and find the first cell that is blank in in col C and unhide that along with
the next 9 rows. For example, if I have data input in cells C7:C100, the
macro would then unhide C101:C110.

 

[Jacob Skaria]

Sub Macro()
Dim lngRow as long
lngRow = ActiveSheet.Range("C7").End(xlDown).Row + 1
Rows(lngRow & ":" & lngRow + 9).Hidden = False
End Sub

 

[GoBucks]

Thank you Jacob!!!!

Sub Macro()
Dim lngRow as long
lngRow = ActiveSheet.Range("C7").End(xlDown).Row + 1
Rows(lngRow & ":" & lngRow + 9).Hidden = False
End Sub