Private Sub Command1_Click() Dim FilePath() As String Dim i As Long With CommonDialog1 .InitDir = App.Path .Flags = cdlOFNExplorer Or cdlOFNAllowMultiselect .ShowOpen FilePath = Split(.FileName, vbNullChar) For i = LBound(FilePath) To UBound(FilePath) Debug.Print FilePath(i) Next i End With End Sub