Try this:
Sub calvinle(): Dim P As String, M As String, S As String, Contract As Long, v As Long, U As String
Dim wb As Workbook, wv As Worksheet: Set wv = ActiveWorkbook.Sheets("Sheet1")
P = wv.Parent.FullName: v = InStrRev(P, "\"): P = Left(P, v)
M = P & "MainPath\": S = P & "SecondPath\": U = Dir(M)
Do Until U = ""
For v = 5 To wv.Range("A" & Rows.Count).End(xlUp).row: Contract = wv.Cells(v, 1)
If InStr(1, U, Contract) Then
Workbooks.Open M & U
Set wb = ActiveWorkbook: wb.SaveAs S & U
wb.Close: End If
GetNext: Next v: U = Dir(): Loop
End Sub
*Start with VBA File active
Bookmarks