Conditional hiding of rows

[K. Georgiadis]

Could you help me with the VBA syntax to accomplish the following:

• On Sheet1 there will be an option button, with the instruction "click here if this is a multilevel calculation"
• If the user clicks the option button, rows A5:A8 in Sheet2 are unhidden. Otherwise they remain hidden

Thanks.

KG

[mdmackillop]

Try the following
MD

Sub Macro1()
    Sheets("Sheet2").Rows("5:8").Hidden = False
End Sub

[K. Georgiadis]

if this was meant to be a macro assigned to the option button, it did not do the trick for me.

[mdmackillop]

Try setting up a second option button. The following works for me.

Private Sub OptionButton1_Click()
    Macro1
End Sub

Private Sub OptionButton2_Click()
    Macro2
End Sub

Sub Macro1()
    Sheets("Sheet2").Rows("5:8").Hidden = False
End Sub

Sub Macro2()
    Sheets("Sheet2").Rows("5:8").Hidden = True
End Sub

[Ken Puls]

If it's an option, I personally prefer to use a checkbox, since you can't "unselect" and option button unless you have a second one.

With a checkbox, you can put all your code in one sub:

Private Sub CheckBox1_change()
     Select Case CheckBox1.Value
         Case Is = True
             Sheets("Sheet2").Rows("5:8").Hidden = False
         Case Is = False
             Sheets("Sheet2").Rows("5:8").Hidden = True
     End Select
 End Sub

HTH,

[mdmackillop]

Agreed, The code will only run once with a single option button.
MD