afrpompeia Beginner

Member since Jan 21st 2023

Last Activity: Jan 31st 2023

Posts: 1
Points: 5
Profile Hits: 32

Carim Jan 22nd 2023

Hello Alvaro,

You can simplify your code with following :

Code

Private Sub cmdClear_Click()
Dim ctrl As Control
  For Each ctrl In UserForm1.Controls
      If TypeName(ctrl) = "Label" Then
        'Identify Lines and change Visible '
        If Left(ctrl.Name, 4) = "Line" Then
            ctrl.Visible = False
        End If
      End If
  Next ctrl
End Sub

Display More

Hope this will help