VBA Code for Previous dates

Hello, I had created a forum question yesterday which worked with the VBA code someone gave me:


Public Function PreviousDate(SearchRange As Range, CurrentDate As Variant) As Variant

For Each c In SearchRange
If c.Value < CurrentDate And c.Value > PreviousDate And c.Offset(0, -5) = "Active Client" Then
PreviousDate = c.Value
End If

Next c

End Function
I had to create an array formula to another cell and now the code doesn't work anymore. Is there something i need to change to the code now so it will work again? Please help. See attached.
Book4.xlsm

HTML Code: 

should be

HTML Code: 

this should work with any range, to use the search range and current date are the same, but the criteria range is the range of all criteria (in your workbook it is range F4:F42), criteria is either typed ie "Active Client" or a range F9

criteria range can only be one column wide

HTML Code: 

Still didn't work..Not knowing how to work with Macros, makes this really difficult. Thanks anyway.