Unhide rows macro
 

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.

Unhide rows macro
 

Sub Macro()
Dim lngRow as long
lngRow = ActiveSheet.Range("C7").End(xlDown).Row + 1
Rows(lngRow & ":" & lngRow + 9).Hidden = False
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"GoBucks" wrote:

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.

Unhide rows macro
 

Thank you Jacob!!!!

"Jacob Skaria" wrote:

Sub Macro()
Dim lngRow as long
lngRow = ActiveSheet.Range("C7").End(xlDown).Row + 1
Rows(lngRow & ":" & lngRow + 9).Hidden = False
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"GoBucks" wrote:

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.