Private Sub Worksheet_Calculate()
On Error Resume Next
If Not Intersect(Target, [BY102]) Is Nothing Then
Cells.EntireRow.Hidden = False
If Target = 1 Then Rows("177:187").EntireRow.Hidden = True
If Target = 2 Then Rows("188:198").EntireRow.Hidden = True
End If
End Sub