userform labels

  • Thread starter Thread starter RobcPettit
  • Start date Start date
R

RobcPettit

Hi, Ive got 20 labels on a userforn. Is there a better way to clear all
the labels, other than unloading and reloading the form. At the momment
i do, userform1.label1 = "", for all 20. I dont want to unload and
reload the form because label 21 keeps a count of procceses run while
form is in use.
Regards Robert
 
Try this in your UserForm

Private Sub xxx()
Dim Y As Control
Dim Cnt As Integer
Dim X As Integer
For X = 0 To Me.Controls.count - 1
Set Y = Me.Controls(X)
If TypeName(Y) = "Label" Then
Y.caption = ""
End If
Next
End sub

Regards,
Ste
 
Thankyou for your reply. That is perfect. thanks for taking the time
Regards Robert
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Set Userform label text if form is not loaded??? 3
Excel Userform 3
Code stops while Userform Shown 2
Firing Event in another user form 1
Change one label in another form 4
Text labels on a Userform 2
Change label caption on userForm while code runs 1
If no activity, display a UserForm; 10 seconds later close Workboo 4

Back
Top