S
S Himmelrich
I've got the following code that does hide the rows indicated, but it
also hides rows where the check box is...as you see I've tried to
force the rows it's hiding my mistake to unhide, but that doesn't even
work - HELP?
Dim chkBox As CheckBox
Set chkBox = Worksheets("GTPO_#").CheckBoxes("Check Box 10")
If chkBox.Value = xlOn Then
'Sheets("GTPO_#").Select
Rows("75:93").Select
Selection.EntireRow.Hidden = False
Rows("21:30").Select
Selection.EntireRow.Hidden = False
'Sheets("GTPO_#").Select
' MsgBox "Check Box is checked"
Else
'Sheets("GTPO_#").Select
Rows("75:93").Select
Selection.EntireRow.Hidden = True
Rows("21:30").Select
Selection.EntireRow.Hidden = False
'Sheets("GTPO_#").Select
' MsgBox "Check Box is not checked"
End If
Rows("21:30").Select
Selection.EntireRow.Hidden = True
End Sub
also hides rows where the check box is...as you see I've tried to
force the rows it's hiding my mistake to unhide, but that doesn't even
work - HELP?
Dim chkBox As CheckBox
Set chkBox = Worksheets("GTPO_#").CheckBoxes("Check Box 10")
If chkBox.Value = xlOn Then
'Sheets("GTPO_#").Select
Rows("75:93").Select
Selection.EntireRow.Hidden = False
Rows("21:30").Select
Selection.EntireRow.Hidden = False
'Sheets("GTPO_#").Select
' MsgBox "Check Box is checked"
Else
'Sheets("GTPO_#").Select
Rows("75:93").Select
Selection.EntireRow.Hidden = True
Rows("21:30").Select
Selection.EntireRow.Hidden = False
'Sheets("GTPO_#").Select
' MsgBox "Check Box is not checked"
End If
Rows("21:30").Select
Selection.EntireRow.Hidden = True
End Sub