Hide/Unhide 10 consecutive rows down

[Guest]

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

 

[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

 

[Guest]

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