Ciao io faccio in questo modo :

codice:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Celle_Macro As Range
Set Celle_Macro = Range("M2:M13") '<--- range delle celle che scatenano la routine
If Not Intersect(Target, Celle_Macro) Is Nothing Then '<--- verifica se è stata modificata una delle celle che devono scatenare evento
With Target
     Aggiorna_Calendario '<--- routine
End With
End If
Set Celle_Macro = Nothing
End Sub