Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$20" Then Exit Sub
Rows("21:24").Hidden = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$B$20" Then Exit Sub
Rows("21:24").Hidden = False
End Sub