Private Sub ListBox1_Click()
Application.ScreenUpdating = False
Select Case ListBox1.Value
Case Is = "Max Airflow"
Range("MaxAirflow").EntireRow.Hidden = False
Range("AverageAirflow").EntireRow.Hidden = True
Range("MinAirflow").EntireRow.Hidden = True
Case Is = "Average Airflow"
Range("MaxAirflow").EntireRow.Hidden = True
Range("AverageAirflow").EntireRow.Hidden = False
Range("MinAirflow").EntireRow.Hidden = True
Case Is = "Min Airflow"
Range("MaxAirflow").EntireRow.Hidden = True
Range("AverageAirflow").EntireRow.Hidden = True
Range("MinAirflow").EntireRow.Hidden = False
End Select
Application.ScreenUpdating = True
End Sub
|