I have modified Mordred's effort:
Private Sub FileChooser_Change()
If FileChooser.Text = "" Then Exit Sub
Application.ScreenUpdating = False
Dim MLT As Worksheet, _
thisWb As Workbook, _
FileToGet As String, _
TxtFile As String, _
OpenFile As String, _
Region As Variant, _
Regions As Variant
Const strDefaultFolder As String = "C:\Downloads\"
Regions = Array("m", "f")
Set thisWb = ActiveWorkbook
ChDrive strDefaultFolder
ChDir strDefaultFolder
For Each Region In Regions
FileToGet = FileChooser.Text & Region
Set MLT = thisWb.Sheets(FileToGet)
FileToGet = FileToGet & ".txt"
Workbooks.OpenText _
Filename:=FileToGet, _
DataType:=xlDelimited, _
Space:=True, _
ConsecutiveDelimiter:=True
Workbooks(FileToGet).Sheets(FileChooser.Text & Region).Cells.Copy _
Destination:=MLT.Range("a1")
Application.DisplayAlerts = False
Workbooks(FileToGet).Close SaveChanges:=False
Application.DisplayAlerts = True
Next Region
Application.ScreenUpdating = True
End Sub
The attached macro requires four sheets per the file names to exist ( it does not create them).
Bookmarks