Hide/Unhide

Hi
I am trying to hide some lines that are not needed most of the time. I am trying to make them accessible with the click of a button if they are. Can you tell me what is wrong with the code I am using? I keep getting else with out if and i just do not get it.

'If Rows("9:11").EntireRow.Hidden = True Then
    Rows("9:11").EntireRow.Hidden = False
   Else
If Rows("9:11").EntireRow.Hidden = False Then
    Rows("9:11").EntireRow.Hidden = True
End If

Please edit your post to comply with the Forum Rules. All VBA code must be wrapped in code tags. After you have applied the code tags, solutions will be suggested.

Rule #3

Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # button at the top of the post window. If you are editing an existing post, press Go Advanced to see the # button. For more information about these and other tags, click here.

Each "IF" statement must have its own "End If" (there is one exception to this). You are missing the second End If line of code.

However, all you need is:

Sub Toggle_Rows()

    Rows("9:11").Hidden = Range("A1") = True

End Sub

Which, if you use a check box from the Forms Controls, set A1 as the linked cell (or choose another cell) and assign this code to the check box, then you only need to "check" the box to hide the row and "uncheck" it to show them.