zkus toto
Private Sub CheckBox1_Change()
If CheckBox1 = True Then
Rows("10:20").EntireRow.Hidden = True
ElseIf CheckBox1 = False Then
Rows("10:20").EntireRow.Hidden = False
End If
End Subcitovat
Private Sub CheckBox1_Change()
If CheckBox1 = True Then
Rows("10:20").EntireRow.Hidden = True
ElseIf CheckBox1 = False Then
Rows("10:20").EntireRow.Hidden = False
End If
End Subcitovat