Option
Explicit
Private
Const
C_CBX_NAME_POST
As
String
=
"cbxAcc"
Private
m_nCbxAcc
As
Long
Private
Sub
CommandButton1_Click()
Dim
i
As
Long
For
i = 1
To
m_nCbxAcc
If
Controls(C_CBX_NAME_POST & i).Value
Then
ThisWorkbook.Worksheets(Controls(C_CBX_NAME_POST).Caption).PrintOut
End
If
Next
End
Sub
Private
Sub
UserForm_Initialize()
Dim
wks
As
Excel.Worksheet
For
Each
wks
In
ThisWorkbook.Worksheets
m_nCbxAcc = m_nCbxAcc + 1
With
Controls.Add(
"FORMS.CHECKBOX.1"
, C_CBX_NAME_POST & m_nCbxAcc)
.Caption = wks.Name
.Left = 10
.Top = 10 + (m_nCbxAcc - 1) * .Height
End
With
Next
End
Sub