Looping through an array

[szita2000]

Hi Guys, and Happy New Year to everybody!

I am trying to build something like a widget.
I created shapes that are named in this fashion: A01_TrafficLight, A02_TrafficLight, B03_TrafficLight etc...

I have the corresponding list of names in a named range on a sheet ie: A01, A02, B03...
How can I loop though the of names corresponding to my shapes naming convention to do something to the shape name?

I want to concatenate the shape name from a table of all the names. So I can refer to it. (There are other shapes for each machine named A01_Title, A01_TextBox and so on...)

One way I can think of (but it's not elegant) if I start like this then I can use an integer to loop through the number

Dim xMachine(1 To 17) As String
    
    xMachine(1) = "A01"
    xMachine(2) = "A02"
    xMachine(3) = "B03" 'and so on...

What I really want is that the Setting of the Array to be dynamic.
I have the names of my machines on Sheet4 in a named range named rngMachineList

Is there any way to do this?

 

[Kyle123]

Something like:

Dim xMachine As Variant
xMachine = Sheet4.Range("rngMachineList").Value

You can then loop through xMachine

 

[szita2000]

Something like:

Dim xMachine As Variant
xMachine = Sheet4.Range("rngMachineList").Value

You can then loop through xMachine

Thanks Kyle!
In the meantime I watched a tutorial on Arrays and how to declare them. Thanks for the help though!