I have a macro that pulls all the files from a directory and does stuff to them.  I would like to modify the macro though to allow me to select particular files within a directory. Below is the section of code that pulls files in from the shell application but I can't find a way create a multiselect dialog box in this.  Does anyone have any thoughts or links they could send?

        filter = "\*.sldprt"

        docType = swDocumentTypes_e.swDocPART

    Dim shellApp As Object

    Set shellApp = CreateObject("Shell.Application").BrowseForFolder(0, "Please select an input folder", 0, "")

    Dim inputPath As String

    inputPath = shellApp.Self.Path

    file = Dir(inputPath & filter)