This is wat I have in code

Select case counter

case 1
shape1.backcolor = shape75.backcolor
shape2.backcolor = shape76.backcolor
shape3.backcolor = shape77.backcolor
shape4.backcolor = shape78.backcolor
shape5.backcolor = shape79.backcolor
shape6.backcolor = shape80.backcolor

case 2
shape7.backcolor = shape75.backcolor
shape8.backcolor = shape76.backcolor
shape9.backcolor = shape77.backcolor
shape10.backcolor = shape78.backcolor
shape11.backcolor = shape79.backcolor
shape12.backcolor = shape80.backcolor

case 3
shape13.backcolor = shape75.backcolor
shape14.backcolor = shape76.backcolor
shape15.backcolor = shape77.backcolor
shape16.backcolor = shape78.backcolor
shape17.backcolor = shape79.backcolor
shape18.backcolor = shape80.backcolor

And so on until case 50!

end select


Is there a shorter way to do this?
I want to change the numeric value an do create
a for next loop.
I've tried a few things but can't get it right.


thanks for your time.

Ray