Would appreciate any help with this challenge, as it has been a while for me and I am a bit rusty!

I am looking to have a macro automatically bring up file explorer to select a file, so the user can select a *.txt file that could be in any location (the user selects the location using file explorer then picks the file). The format of the file is delimited by tab and comma and is imported in such a way where some of the fields are specified as text (this had to be done because excel would convert somethings automatically which is what I don't want).

Once the user selects the file, all the importing with correct text formats in some fields is done automatically.


 Workbooks.OpenText FileName:= _
        "C:\User_Specified_File_location\User_Selected_Filename.txt", Origin _
        :=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 2), _
        Array(3, 1), Array(4, 1), Array(5, 2), Array(6, 1), Array(7, 2), Array(8, 1), Array(9, 1), _
        Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
        16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _
        Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _
        29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), _
        Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array( _
        42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), _
        Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), Array(53, 1), Array(54, 1), Array( _
        55, 1), Array(56, 1), Array(57, 1), Array(58, 1), Array(59, 1), Array(60, 1), Array(61, 1), _
        Array(62, 1), Array(63, 1), Array(64, 1), Array(65, 1), Array(66, 1), Array(67, 1), Array( _
        68, 1), Array(69, 1), Array(70, 1), Array(71, 1), Array(72, 1), Array(73, 1), Array(74, 1), _
        Array(75, 1), Array(76, 1), Array(77, 1), Array(78, 1), Array(79, 1), Array(80, 1), Array( _
        81, 1), Array(82, 1), Array(83, 1), Array(84, 1), Array(85, 1)), TrailingMinusNumbers _
        :=True

Your help is much appreciated!

THank you.

Eric