semaforo en excel

[niconico]

Muchas gracias, es lo que necesitaba. Tuve que quitar una línea del código porque con ella me daba error:

If Cambiar and Direccion=$A$1 Then

y después le añadí unas líneas para que cuando no haya nada en la celda no aparezca ninguna imagen, así quedo (no sé si estará bien pero funciona):

Dim Direccion As String
Dim Cambiar As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)

Valor = Range("A1").Value
If Valor = 0 Then
ActiveSheet.Shapes("Imagen 14").Visible = False
ActiveSheet.Shapes("Imagen 12").Visible = False
ActiveSheet.Shapes("Imagen 13").Visible = False

ElseIf Valor >= 1 And Valor < 100 Then
ActiveSheet.Shapes("Imagen 14").Visible = True
ActiveSheet.Shapes("Imagen 12").Visible = False
ActiveSheet.Shapes("Imagen 13").Visible = False
ElseIf Valor >= 100 And Valor < 200 Then
ActiveSheet.Shapes("Imagen 14").Visible = False
ActiveSheet.Shapes("Imagen 12").Visible = True
ActiveSheet.Shapes("Imagen 13").Visible = False
Else
ActiveSheet.Shapes("Imagen 14").Visible = False
ActiveSheet.Shapes("Imagen 12").Visible = False
ActiveSheet.Shapes("Imagen 13").Visible = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
Cambiar = True
End Sub