Hi All,

Can't seem to get my code below to fire off when the value in my range is changed. It only fires off after I select the range again a second time after I have clicked away on the orginal hange. I must be missing the obvious.

Any help greatly appreciated.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.Range("C9:C400")) Is Nothing Then
Application.EnableEvents = False
ActiveSheet.Range("A:A").Calculate
ActiveSheet.AutoFilter.ApplyFilter
Application.EnableEvents = True
End If
End Sub
Thanks