title: List Full File Path of Multiple Files and Paste to Specific Column
body: <p>I need help in changing the below code so I can get the full file path of the selected multiple files:</p>
  
  <pre><code>Dim xRow As Long
  Dim xDirect$, xFname$, InitialFoldr$, xpaths  
  
  InitialFoldr$ = "C:\" 'Startup folder to begin searching from
  With Application.FileDialog(msoFileDialogFolderPicker)
      .InitialFileName = Application.DefaultFilePath &amp; "\"
      .title = "Please select a folder to list Files from"
      .InitialFileName = InitialFoldr$
      .Show
  If .SelectedItems.Count &lt;&gt; 0 Then
      xDirect$ = .SelectedItems(1) &amp; "\"
      xFname$ = Dir(xDirect$, 7)
      Do While xFname$ &lt;&gt; ""
          Range("A2").Offset(xRow) = xFname$
          xRow = xRow + 1
          xFname$ = Dir
      Loop
  End If
  </code></pre>