Dim NAfter, NBefore, AD_Newstart, FR_NewStart, i, n, j As Integer
Dim Delta, FileToOpen As Variant
Dim DestBook, MyPath, MyMsg As String
Dim MyFilter As Filter
On Error GoTo Defreeze
Set MySelection = Selection
DestBook = ActiveWorkbook.Name
MyPath = Evaluate(Workbooks(DestBook).Names("TSV_Folder").RefersTo)
NBefore = Range("AD_SOURCE").Rows.Count
ChDrive MyPath
ChDir MyPath
' Shows up Open file dialog box and GetOpenFilename method returns an array
FileToOpen = Application.GetOpenFilename("TSV Files (*.tsv), *.tsv", , "FILES TO BE IMPLEMENTED", , True)
With Workbooks(DestBook).Names("TSV_Folder")
.Name = "TSV_Folder"
.RefersTo = GetMyFilePath(FileToOpen(1)) 'One because all files should from the same folder
End With