ExcelBanter - View Single Post

Thanks Dave. Works perfectly.

From: Dave Peterson
Reply-To:
Newsgroups: microsoft.public.excel.misc
Date: Thu, 27 Jan 2005 18:21:32 -0600
Subject: Creating Customize Reports

Option Explicit
Private Sub Worksheet_Activate()

Dim iCtr As Long
For iCtr = 1 To Worksheets("sheet1").CheckBoxes.Count
Me.Range("Section" & iCtr).EntireRow.Hidden _
= CBool(Worksheets("sheet1") _
.CheckBoxes("check box " & iCtr).Value = xlOn)
Next iCtr

End Sub