Hide/Unhide 10 consecutive rows down
 

I have gone through previous posts but could not get the correct/similar code
for:-
1.when command button(1) is clicked, 10 rows down (if hidden) from an
active cell should be unhidden i.e. if B4 is active cell, rows 5 to 14
should be unhidden
2.when command button(2) is clicked, 10 rows down (if not hidden) from a
active cell should be hidden i.e. if B40 is the active cell, rows 41 to 50
should be hidden.
Would appreciate assistance
--
Robert

Hide/Unhide 10 consecutive rows down
 

sub CommandButton1_Click()
activecell.offset(1,0).resize(10).Entirerow.Hidden = False
end sub

sub CommandButton2_Click()
activecell.offset(1,0).resize(10).Entirerow.Hidden =True
end sub

HTH
--
AP

"Robert" a écrit dans le message de
...
I have gone through previous posts but could not get the correct/similar
code
for:-
1.when command button(1) is clicked, 10 rows down (if hidden) from an
active cell should be unhidden i.e. if B4 is active cell, rows 5 to 14
should be unhidden
2.when command button(2) is clicked, 10 rows down (if not hidden) from a
active cell should be hidden i.e. if B40 is the active cell, rows 41 to 50
should be hidden.
Would appreciate assistance
--
Robert

Hide/Unhide 10 consecutive rows down
 

Ardus Petus, Thank you very much for the codes.
Implemented and working.
--
Robert