Macro/VBA - Hide/unhide rows in sheet through YES/NO Controll

Hey all,

Can anybody tell me how I can hide and unhide rows in a excel sheet through a action bar pull-down - with the index option "Yes" and "No" (Hide "yes" and "no" for unhide rows).

This is what I have so far:
Sub HideUnhide_rows()
'
' HideUnhide_rows Makro
' Makro registrert 19.03.2005 av Aage
'

'
Rows("19:21").Select
Range("A21").Activate
Selection.EntireRow.Hidden = True
Range("F5:L5").Select
End Sub

Only one of the two options work through this, so please help me with the final bit..

Thanks,

Age