Hi,

I want to use the toggle button control to alternatively hide and unhide a
selection. My procedure works fine but I am using a linked cell to give a
True or False statement, that the procedure needs. Can the procedure respond
directly to the toggle button being pressed instead? Thx in advance.

the code:

Private Sub ToggleButton1_Click()
Dim SimSheet As Worksheet

Set SimSheet = ActiveSheet
With ActiveSheet
Set ToggleVal = Cells(35, 6)
If ToggleVal = True Then

ActiveSheet.Cells(37, 1).Select
Set tbl = ActiveCell.CurrentRegion
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count).Select
Selection.EntireRow.Hidden = True

Else: Selection.EntireRow.Hidden = False

End If
End With
End Sub