Code Help Needed to Sort Data

Hi Lynn

2 new copies attached

Dates(4).xls
where the selection changes as soon as you change any dates in H8 or I8 without the user having to press Extract Data button.
You can remove that button from the sheet altogether if you wish, by right clicking the button and choosing Cut.

This version has event code on sheet Contact Due Dates which triggers the extraction

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myrng As Range
    Set myrng = Range("H8:I8")
    If Not Intersect(Target, myrng) Is Nothing Then
        ExtractData
    End If
End Sub

Dates(5).xls
Has the changes you requested, but the user still has to press the Extract Data button to see the result.

In both cases, the code will deal with as many rows of data as you have on your Client files sheet. It is not restricted to 200.