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.

try this:

Private Sub ToggleButton1_Click()
Rows.Hidden = False
If ToggleButton1.Value Then
Rows("1:4").Hidden = True
Rows("15:65536").Hidden = True
End If
End Sub

--
Regards

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)