Hope this helps
Dim Ctrl As Control
Sub ChangeLabelsTo8()
For Each Ctrl In UserForm1.Controls
If Left(Ctrl.Name, 5) = "Label" Then Ctrl.Caption = "8"
Next
End Sub
Hope this helps
Dim Ctrl As Control
Sub ChangeLabelsTo8()
For Each Ctrl In UserForm1.Controls
If Left(Ctrl.Name, 5) = "Label" Then Ctrl.Caption = "8"
Next
End Sub