Mail_ReceivedOrNot_Mailed Formula Used:- ="\\pgarg\Pk_Sharing_Folder\OutlookSaveDSRAttachment\Delhi_Ncr\"&TEXT(Q1,"DD-MM-YYYY")&"\"&"*" =IFERROR(@INDEX(List_Delhi_NCR,ROW()-2),"") Sub SetReminderMail_Delhi_NCR() Dim Sdate As String Dim sWorkbook As Workbook Dim sWorkbook1 As String Dim sWorkbook2 As String Dim wb As Workbook Dim objApp As Object Dim ws As Worksheet Dim destWB As Workbook Dim Path As String Dim sh As Object Application.DisplayAlerts = False Application.ScreenUpdating = False 'Delete all file from folder temp2 On Error Resume Next Kill "E:\Pkgarg_Record\Pkgarg_Final_Cril_Report\temp\*.*" On Error GoTo 0 'Process start On Error Resume Next Set wb = Workbooks("\Mail_ReceivedOrNot_Mailed\Mail_ReceivedOrNot_Mailed.xlsm") ...