Distributing a Excell file with Macro

[mtagliaferri]

I have a Excel file saved on my desktop which has a macro to import csv from another file saved on my desktop. I would like to distribute my excel file to other colleagues which will have both files saved on their desktop.
My Macro refers to my user and user name Users\123456\, therefore I would need to modify the macro for any single colleague I distribute the file to, is there a way to avoid this by changing the VBA code to read the user path?

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\123456\Desktop\UNM0007.csv", Destination:=Range("$A$1"))

Thanks

 

[Anthony47]

First calculate the connection text, then add the query:

myc = "TEXT;" & Environ("username") & "\Desktop\UNM0007.csv"
With ActiveSheet.QueryTables.Add(Connection:=myc, Destination:=Range("$A$1"))

Bye

 

[Anthony47]

Sorry, I realize that I forgot some pieces, in my instruction:

myc = "TEXT;" & "C:\Users\" & Environ("username") & "\Desktop\UNM0007.csv"      'C:\Users\ was missing

 

[mtagliaferri]

Thanks, that worked perfectly!!!