Macro code to show or hide cells by checking box

[ExcelQs]

Hi-

I'm trying to show rows when a check box is clicked, otherwise the rows should be hidden. This is the code I have so far.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Rows("15:15").Select
Selection.EntireRow.Hidden = False

If CheckBox1.Value = False Then Rows("15:15").Select
Selection.EntireRow.Hidden = True
End Sub

The rows do not stay shown, but flash when I check the box. Any feedback to make them stay shown when the box is checked would be very helpful.

Thanks!

 

[gsistek]

Try this:

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
     Rows("15:15").EntireRow.Hidden = False
Else 
     Rows("15:15").EntireRow.Hidden = True
End If

End Sub

 

[ExcelQs]

Thanks!