Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("I4")) Is Nothing Then If Target.Count > 1 Then Exit Sub Range("J4").ClearContents If Target.Value = "giallo" Then Cells(Target.Row, 10) = "esatto" Else '<< qui inserisci il codice per far partire l'MP3 End If End If End Sub