Help with For X

[Shakeable_Drip]

I'm butchering VBA I found.
I'd like to have FilePicker to select files then write those file names to range A1.

Sub ChooseFiles()

Dim SourceFileApp As Application
Dim TargetFolderApp As Application
Dim vitemselecetd As Variant

Set SourceFileApp = Application
Set TargetFolderApp = Application

listdepth = Cells(Rows.Count, 1).End(xlUp).Row
With SourceFileApp.FileDialog(msoFileDialogFilePicker)  ' get file to replicate
    .AllowMultiSelect = True
    If .Show = -1 Then
        
        For Each vitemselecetd In .SelectedItems
        
        For x = 1 To listdepth
          'write .selecteditems starting at range A1
        Next x
    Next vitemselecetd
 
    
    
    Else
                    MsgBox "No Source File Chosen"
                    Exit Sub
 
    End If
End With

End Sub

 

[Artik]

Sub ChooseFiles()

    Dim SourceFileApp As Application
    Dim TargetFolderApp As Application
    Dim vitemselecetd As Variant
    Dim i As Long
    Dim listdepth As Long

    Set SourceFileApp = Application
    Set TargetFolderApp = Application

    listdepth = Cells(Rows.Count, 1).End(xlUp).Row
    
    With SourceFileApp.FileDialog(msoFileDialogFilePicker)  ' get file to replicate
        .AllowMultiSelect = True
        
        If .Show = -1 Then
            For Each vitemselecetd In .SelectedItems
                Cells(listdepth, "A").Offset(i).Value = vitemselecetd
                i = i + 1
            Next vitemselecetd
        Else
            MsgBox "No Source File Chosen"
            Exit Sub
        End If
    
    End With

End Sub

Artik

 

[Shakeable_Drip]

Sub ChooseFiles()

    Dim SourceFileApp As Application
    Dim TargetFolderApp As Application
    Dim vitemselecetd As Variant
    Dim i As Long
    Dim listdepth As Long

    Set SourceFileApp = Application
    Set TargetFolderApp = Application

    listdepth = Cells(Rows.Count, 1).End(xlUp).Row
   
    With SourceFileApp.FileDialog(msoFileDialogFilePicker)  ' get file to replicate
        .AllowMultiSelect = True
       
        If .Show = -1 Then
            For Each vitemselecetd In .SelectedItems
                Cells(listdepth, "A").Offset(i).Value = vitemselecetd
                i = i + 1
            Next vitemselecetd
        Else
            MsgBox "No Source File Chosen"
            Exit Sub
        End If
   
    End With

End Sub

Artik

That worked like a charm thanks Artik! Can you help me with one more question?
I've got this to strip away the file path, but I'm no longer using "MyFolder" and I don't know if it works with the "ForEach"
Can I also strip away the ".pdf" as well?

vitemselecetd, MyFolder & IIf(InStr(1, ".", Cells(x, 1)) > 0, Cells(x, 1), Cells(x, 1) & Right(vitemselecetd, Len(vitemselecetd) - InStrRev(vitemselecetd, ".", Len(vitemselecetd)) + 1))