Change Items Sequentially named by formula

[ugotaccpaced]

Say I have a game with 999 lights that are named Light001, Light002, Light003 through Light999. At the start of the game I need to turn all 999 lights to on. Is there a way to use For/Next to do this rather than have to individually write code to turn on each light?

ex.
Dim i
For i = 1 to 999
SomeFunction("Light" & Right("000" & i, 3)).State = On
Next

 

[strongm]

Number of ways. One method would be to add all the lights to a dictionary, then you can iterate through the dictionary items (or keys) whenever you like