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:
MyCheckBox-code:
Until now I'm stuck at the point when making a new "MyCheckBox".
Anyone that could help me out?
Thanks
UserForm-code:
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:
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