Avail update remaining file to new folder
Attribute VB_Name = "CopyNew_toNewLoc" Option Explicit Const vbqt = """" Const reREvitFileMatch As String = "^[^.]+\.(?!\d+\.)(rvt|rfa|rft|rte|txt)$" Private Sub GetMissingFiles () Dim ws As Worksheet Dim wsFN As Worksheet Dim oT As ListObject Dim I As Integer Dim fso As New FileSystemObject Dim oFold As Folder Dim RE As New RegExp Dim Filelist As New Collection Dim strSrc As String ''source folder Dim strRefComp As String ''compare folder Dim strDest As String ''destination Dim ttl As Integer Dim newRow As ListRow With Application . EnableEvents = False . Calculation = xlCalculationManual End With Set ws = Application.ActiveWorkbook.Worksheets ( "Files" ) Set w