Hi SuitedAces,

I've come up with a way of having captionless buttons.

The code now relies on the buttons' names.

You will have to, however do the following with each individual
button...

1. Select one
2. Click inside the Name Box on the left side of the Formula bar
3. Type "Toggle 3" if the selected button is the one for toggling the
third row. The code as it stands relies on this being correct. If you
want to use a different name you will have to alter the code.
4. Press Enter. Be careful here, I often forget to press Enter then
the name is not changed.

Make sure you change all the button's names for the code to use ie
Toggle 6, Toggle 9

The code for this technique is ...

Public Sub Hide_Row_N()
Dim Pressed As Shape
Set Pressed = ActiveSheet.Shapes(Application.Caller)
Select Case Pressed.Name

Case "Toggle 3"
Range("MyCell").Offset(3, 0).EntireRow.Hidden = _
Not Range("MyCell").Offset(3, 0).EntireRow.Hidden

Case "Toggle 6"
Range("MyCell").Offset(6, 0).EntireRow.Hidden = _
Not Range("MyCell").Offset(6, 0).EntireRow.Hidden

Case "Toggle 9"
Range("MyCell").Offset(9, 0).EntireRow.Hidden = _
Not Range("MyCell").Offset(9, 0).EntireRow.Hidden

End Select
End Sub

Hope this makes sense

Ken Johnson