title: Get Data in VBA that can be used by any user
body: <p>I need to import a file from the desktop.  However, I need this to be used by different users.
  Below is how it is written to work on &quot;Mark's&quot; desktop.  How do Imake it so it will work on any users desktop?</p>
  <pre><code>    Application.CutCopyMode = False
  ActiveWorkbook.Worksheets.Add
  With ActiveSheet.QueryTables.Add(Connection:= _
      &quot;TEXT;C:\Users\Mark\Desktop\next.txt&quot;, Destination:=Range(&quot;$A$1&quot;))
      .Name = &quot;next&quot;
      .FieldNames = True
     
  </code></pre>
  <p>Same issue when saving the file at the end:</p>
  <pre><code>        Sheets(&quot;Loader&quot;).Select
  Application.DisplayAlerts = False
  ActiveWindow.SelectedSheets.Delete
  
  ActiveWorkbook.SaveAs Filename:=&quot;C:\Users\Mark\Desktop\Load_File&quot; &amp; Format(Now(), &quot;DD-MMM-YYYY hh mm AMPM&quot;) &amp; &quot;.CSV&quot;, _
  FileFormat:=xlCSV, CreateBackup:=False
  Application.DisplayAlerts = True
  
  End With
  </code></pre>
  <p>End Sub</p>