Ejecutar macro automáticamente

Hola, tengo el siguiente código en una macro
Sub Color()
Dim Celda As Range
Dim Rango As Range
Range("D1:D243").Select
Set Rango = Selection
For Each Celda In Rango
'si la celda está en color rojo
If Celda.Interior.Color = RGB(255, 0, 0) Then
'se asigna un valor
ActiveCell.Select
Celda.Value = 0
Else
Celda.Font.ColorIndex = 2
End If
'si la celda está en color amarillo
If Celda.Interior.Color = RGB(255, 255, 0) Then
'se asigna un valor
ActiveCell.Select
Celda.Value = 0.5
Else
Celda.Font.ColorIndex = 5
End If
'si la celda está en color verde
If Celda.Interior.Color = RGB(0, 128, 0) Then
'se asigna un valor
ActiveCell.Select
Celda.Value = 1
Else
Celda.Font.ColorIndex = 5
End If
Next
ActiveWorkbook.Save
End Sub
Necesito que al asignar el color a la celda se ejecute automáticamente la macro "color", leí que se le asigna el evento change pero no se cómo... ¿cómo le hago? Ayúdenme please