If you do want to go with VBA, you can add Option Button controls to the WS and put a little code behind them
Capture.JPG
Option Explicit
Private Sub obAll_Click()
Application.ScreenUpdating = False
Me.Rows.Hidden = False
Application.ScreenUpdating = True
End Sub
Private Sub obMgr_Click()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range(Range("B12"), Range("B12").End(xlDown))
With c.EntireRow
.Hidden = (.Cells(20).Value = 0#)
End With
Next
Application.ScreenUpdating = True
End Sub
Private Sub obNoMgr_Click()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range(Range("B12"), Range("B12").End(xlDown))
With c.EntireRow
.Hidden = (.Cells(20).Value <> 0#)
End With
Next
Application.ScreenUpdating = True
End Sub