How to detect (and execute macro) the value change in specific cell in Excel

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Sheets("Sheet1").Range("Your range")) Is Nothing Then
          Application.EnableEvents = False
          'Do something here
          Application.EnableEvents = True
     End If
End Sub