Name shape with index

[Evolta]

See if the help is as fast as the previous question.
This time the question is easy.

Current code:

ActiveSheet.Shapes("Rounded Rectangle 6").Visible = False
ActiveSheet.Shapes("Rounded Rectangle 7").Visible = False
ActiveSheet.Shapes("Rounded Rectangle 8").Visible = False
ActiveSheet.Shapes("Rounded Rectangle 9").Visible = False
ActiveSheet.Shapes("Rounded Rectangle 10").Visible = False
ActiveSheet.Shapes("Rounded Rectangle 11").Visible = False
ActiveSheet.Shapes("Rounded Rectangle 12").Visible = False
ActiveSheet.Shapes("Rounded Rectangle 13").Visible = False

Is..... indeed... Ulgy.


I want to hide all shapes named 6 and up. Neeless to say, it doesn't work like this:

For i = 6 To i = 13
ActiveSheet.Shapes("Rounded Rectangle " & i).Visible = False
Next i

Not an important thing, but it would be nicer