Hide / Unhide Utility

[maarire]

I'm trying to build a utility that makes it possible to quickly hide / unhide multiple sheets.
Until now I'm stuck at the point when making a new "MyCheckBox".

Anyone that could help me out?

Thanks


UserForm-code:

Option Explicit
Option Compare Text


 Private Sub UserForm_Initialize()
    Me.Caption = "Tab-Utility"
 
    Const n As Integer = 1000
    Dim chck As MSForms.CheckBox
    Dim mychcks(n) As MyCheckBox
    
    Dim i As Integer
    For i = 1 To Sheets.Count
    
         Set chck = Me.Controls.Add("forms.checkbox.1", "checkbox" & i, True)
         
         Set mychcks(i) = New MyCheckBox
         Set mychcks(i).Control = Me.Controls("checkbox" & i)
         mychcks(i).Number = i
         
         With chck
            .Caption = Sheets(i).Name
            .Left = 10
            .Top = 25 * i
            With .Font
                .Name = "Arial"
                .Size = 13
            End With
         End With
        
     Next
         
End Sub

MyCheckBox-code:

Option Explicit


Private WithEvents chck As MSForms.CheckBox
Public Number As Integer
 
Public Property Set Control(ByVal m As MSForms.CheckBox)
    Set chck = m
End Property


Private Sub chck_click()
    Sheets(Number).Visible = Not Sheets(i).Visible
End Sub

 

[James006]

Hi,

In order to handle multiple buttons with one procedure, you need to have a class.

See following example : Spreadsheet Page Excel Tips: Handle Multiple Userform Buttons With One Subroutine

HTH

 

[maarire]

Thanks for the reply, but the MyCheckBox is the class you are suggesting.
I got the error because the arrays of checkboxes and mycheckboxes weren't declared globally.