Public Sub ImportTextFile() Dim TextFile As Workbook Dim OpenFiles() As Variant Dim i As Integer OpenFiles = GetFiles() Applicati