Select File By File Date

I have moved this query to a seperate post because the other was becoming a bit bogged down.

This code supplied by RichieUK works perfectly until the month changes then it goes wrong. I have run the macro for every day of May up to the 3rd June using dummy files and then it goes wrong -

When I get to the 3rd June dsecondlatest which should pick up either yesterdays or (last fridays file if yesterday was a Sunday) picks up the file for the 1st June instead of the 2nd June.

dlatestdate still works properly and gives the filename for the 3rd June.


Sub New_Coupon_Count_Update4()
' Find Source Data File
ChDir "J:\_RU_REPORTSMARKETING"
Const strMyDir As String = "J:\_RU_REPORTSMARKETINGCOUPON COUNT CSV"
Const strFirstName As String = "Ru0230_"
Const strSecondName As String = "J:DAILY_COUPON_COUNT_2006COUPON06.xls"
Dim strFName As String, wbk As Workbook
Dim strDate As String, strDay As String, strMth As String, strYear As String
Dim dDate As Date, dLatestDate As Date, dSecondLatest As Date
Dim bFirst As Boolean
Dim vaFileName As Variant
Dim daysdif As String
Dim dLesResp
Dim dTodResp
Dim Ro As Long
Dim Col As Integer
Dim DataRows
Dim DataRows1
Dim DataRows2
Dim DataCols1

The rest of the macro after this point works perfectly.