Userform labels

[John Davis]

Hello All:

I have a UserForm and what I'm trying too do is change the color property of all the labels on the form simultaneously. Any advice/ideas would be appreciated.

 

[John Davis]

If you want to do all labels, you could just use:

    Dim ctl As MSForms.Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is MSForms.Label Then ctl.BackColor = RGB(255, 0, 0)
    Next ctl

Hi Rory. Thanks for your reply. True, I want to do all the labels, but I wanted the forms background color to change colors while the macro is running as well. How do I modify the code too accomodate?

 

[RoryA]

Just add:

Me.BackColor = RGB(255, 0, 0)

to the end. Though why you would want a red form is beyond me!

 

[Willem!]

The red is my idea

Thanx for your posting, I didn't know Excel VBA could do that.

Cheers!

 

[John Davis]

Just add:

Me.BackColor = RGB(255, 0, 0)

to the end. Though why you would want a red form is beyond me!

Thank you both. That change was the solution. I have numerous macros on the form and red indicates that the form is activated.