Use the WorkSheet_Change event

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Isect As Range
Set Isect = Application.Intersect(Range("H16:H40"),
Target)

If Target.Count 1 Then
Exit Sub
End If
If Isect Is Nothing Then
Do things...
Else
Do these things...
End If

End Sub

Hope it helps
Lars Kofod
Denmark
-----Original Message-----
Hello,

I have a macro set up to sort a list(s). Is it possible
to have the macro autorun if a value in the list is
updated?

Any help or suggestions are greatly appreciated
.