Private Sub CheckBox2_Change()
If CheckBox2.Value = False Then
Worksheets(1).Rows("20:28").Hidden = True
ComboTypeCurve.Visible = False
IsStep2 = False
Worksheets(2).Rows("13:38").Hidden = True
Else
Rows("20:28").Hidden = False
ComboTypeCurve.Visible = True
IsStep2 = True
Worksheets(2).Rows("13:38").Hidden = False
End If
End Sub