Let user select file to open

There are some differences from the orignial code:

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Me\Google Drive\Our team\data_267798_7267.csv", _
        Destination:=Range("$A$1"))
        .Name = "data_267798_7267"

Your code:

With ActiveSheet.QueryTables.Add(Connection:= _
        stfPath, _
        Destination:=Range("$A$1"))

The parameter stfName = Returns only "data". Not data_267798_7267 so there is something wrong there as well.


Attachments
Here is the data file I am trying to import.
data_267798_7267.csv
Here is the xlsm file that imports the file. It is unfortunately in swedish. On the second slide There is a macro button that starts the import. (1.Hämta Data)
Orderhandling.zip