Unhide rows macro

G

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.
 
J

Jacob Skaria

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

GoBucks

Thank you Jacob!!!!

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Hiding Rows with Blank cells 5
Unhide Rows Date Older Than 7 Days 2
Macro for hiding/unhiding a set of rows 3
VB Code to hide rows 3
Macro to Unhide Rows 3
Unhide/hide based on drop down list 0
Hide subsequent rows based on pull down list choice - macro 3
HIDE-UNHIDE VBA MACRO 1

Top