Hidden Rows not working correctly
 

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

Hidden Rows not working correctly
 

Rows("21:30").Select
Selection.EntireRow.Hidden = True

Shouldn't that be False?

These last 2 lines of your code will cause Rows("21:30") to *always* be
hidden, which seems like the very opposite of your intention.

--
HTH,
George


"S Himmelrich" wrote in message
...
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

Hidden Rows not working correctly
 

Hi

I'm a bit confused what it is that you want to hide, but I can see that you
unhide row 21-30 both if the checkbox is checked or not. Then after EndIf
you hide theese rows ??

Regards,

Per

"S Himmelrich" skrev i meddelelsen
...
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