Макрос для чтения и вывода списка файлов, введенных пользователем и выхода при ошибке

Question

В настоящее время у меня есть макрос, который читает определенные файлы, введенные пользователем, а часть кода ниже собирает имена файлов. Однако, когда пользователь вводит несколько местоположений файлов, вводится только одно местоположение файла.

В столбце C я хотел бы ввести все местоположения файлов в таком порядке, чтобы они были перечислены как: filelocation1, filelocaction2 ... и т. Д.

Это мой текущий код:

Sub openfiles()

    Dim Files As Variant

    'open directory, filter by excel files, select files and place in array
    SelectedFiles = Application.GetOpenFilename( _
        FileFilter:="Excel Filter (*.xlsx), *.xlsx", _
        MultiSelect:=True)

    Application.ScreenUpdating = False 'update in background

    If not IsArray(Files) Then
        MsgBox "No files selected. Cannot continue."
        Range("O" & Rows.Count).End(xlUp).Offset(1, 0) = "no files selected"
        Exit Sub
    Else
        Range("O" & Rows.Count).End(xlUp).Offset(1, 0) = Files
    End If

End Sub