Find missing checkboxes in userform

[Deepk]

hi all,

The following code showing my userform contains approx. 170 checkboxes.

Sub macro1()
Dim ctl As Control
Dim j As Long
'Dim msg As String
j = 3
For Each ctl In UserForm1.Controls
If TypeOf ctl Is MSForms.CheckBox Then
If UserForm1.Controls(ctl.Name).Value = False Then
Cells(j, 5).Value = ctl.Name
j = j + 1
End If
End If
Next
End Sub

However I am not able to identify checkboxes from CheckBox136 to CheckBox152. I took the help of properties window and explored all control but still not able to identify. Please help. Thank you in advance.

 

[rlv01]

Try modifying your code so that it displays more data about the checkboxes:

Sub macro1()
    Dim ctl As Control
    Dim j As Long
    'Dim msg As String
    j = 3

    Cells(j, 5).Value = UserForm1.Name
    Cells(j, 6).Value = UserForm1.Height
    Cells(j, 7).Value = UserForm1.Width
    Cells(j, 8).Value = UserForm1.Top
    Cells(j, 9).Value = UserForm1.Left
    j = j + 1

    For Each ctl In UserForm1.Controls
        If TypeOf ctl Is MSForms.CheckBox Then
            If UserForm1.Controls(ctl.Name).Value = False Then
                Cells(j, 5).Value = ctl.Name
                Cells(j, 6).Value = ctl.Height
                Cells(j, 7).Value = ctl.Width
                Cells(j, 8).Value = ctl.Top
                Cells(j, 9).Value = ctl.Left
                Cells(j, 10).Value = ctl.Visible
                j = j + 1
            End If
        End If
    Next
End Sub

Then look for problems with the size, position, or visible properties: