Variabele label naam

[Woffels]

Hallo,

Ik gebruik een label in mijn sheet die ik met een VBA code wil laten kleuren. Het gaat om een ActievX label in een sheet. Nu staan er meerdere labels op deze sheet met diverse namen. Ik wil nu een label laten verkleuren dmv een VBA functie, waarbij ik de naam van het label een varibele moet zijn.

Sheets("Products").lblRockwell.BackColor = &HFFFFFF

Nu wil ik iets dergelijks als dit maken, maar dat werkt niet.

A = ("Rockwell")
Sheets("Products").("lbl") & A.BackColor = &HFFFFFF

Waarbij A de variabel is die ik met de functie meegeef.

Hoe dit op te lossen?

 

[E v R]

Bijv.:

Sheets("Products").Shapes(A).OLEFormat.Object.Object.BackColor = &HFFFFFF