I have a sheet on which I wish to place a toggle button,
which when clicked hides all the rows except rows 5 to 14
and then when clicked again unhides all the hidden rows.

My code so far is

Private Sub togglebutton1_click()
select case togglebutton1
case true
rows("5:13").entirerow.hidden = true
case false
i don't know what to put here to unhide all hidden rows
end select

Even when I try the first bit I get a run time error.
This would be so useful and your help much appreciated.