add multiple files (various file types)

[Trevor3007]

hi,

I the following code:-

Sub GetFilePath()
Dim dialogBox As FileDialog
Set dialogBox = Application.FileDialog(msoFileDialogOpen)




'Set the display properties - these are optional
'All the settings must be applied before the .Show command




'Do not allow multiple files to be selected
dialogBox.AllowMultiSelect = False




'Set the title of of the DialogBox
dialogBox.Title = "Select a file"




'Set the initial path to :
dialogBox.InitialFileName = "C:\testdata"




'Show the dialog box and output full file path and file name
If dialogBox.Show = -1 Then
ActiveCell.Value = dialogBox.SelectedItems(1)
End If
End Sub

however , it does not allow me to choose multi attachments and have to place the cursor on the applicable col/cell ref in order to add another file.

can code be amended in order i can choose multi files?

MTIA
Trevor3007