Hide/Unhide 10 consecutive rows down

[Robert]

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

[Ardus Petus]

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" <[email protected]> a écrit dans le message de
news:[email protected]...
> 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

[Robert]

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