Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
Dim Ctl As Object
Dim i As Long
Dim n As Long
For Each Ctl In Me.Controls
If TypeName(Ctl) = "CheckBox" Then
If Ctl.Value Then
n = n + 1
ReDim Preserve a(1 To n)
a(n) = Ctl.Caption
If n Then
Open in new window
Author Closing Comment
Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!