yo hago algo similar a lo tuyo, pero con gráficos.
Es más sencillo hacer esto:
1- Copiate los tres semáforos con las luces distintas en la hoja donde quieras que se vean.
2- Después vete seleccionando cada uno de las imagenes y fíjate en la parte izquierda de la barra de fórmula cómo las denomina.
3- Con una macro vas a hacer que sea visible la imagen que necesites en cada momento y haces que las otras sean invisibles. El código es:
ActiveSheet.Shapes("Object 54").Visible = False para hacer el objeto 54 invisible.
ActiveSheet.Shapes("Object 54").Visible = true para hacerlo visible.
Espero que te sea útil.
