Sub SelectSnippetFiles2()

    Dim mfd As FileDialog
    Dim FileChosen As Integer
    Dim i As Integer
    Set mfd = Application.FileDialog(msoFileDialogFilePicker)
        mfd.InitialView = msoFileDialogViewList
        mfd.AllowMultiSelect = True
    FileChosen = mfd.Show
    
    If FileChosen = -1 Then
        For i = 1 To mfd.SelectedItems.Count
            Debug.Print mfd.SelectedItems(i)
            
            Application.ScreenUpdating = False
            Dim DocSrc As Document, DocTgt As Document, RngSrc As Range, RngTgt As Range
            Set DocTgt = ActiveDocument
            Set DocSrc = Documents.Open(mfd.SelectedItems(i))
            Set RngTgt = DocTgt.Bookmarks("End_of_Snippet").Range
            With DocSrc
              Set RngSrc = .Range(.Bookmarks("Start_of_Snippet").Range.Start, .Bookmarks("End_of_Snippet").Range.End)
              RngTgt.FormattedText = RngSrc.FormattedText
              DocTgt.Bookmarks.Add "Destination", RngTgt
             .Close False
            End With
            Set RngSrc = Nothing: Set RngTgt = Nothing: Set DocSrc = Nothing: Set DocTgt = Nothing
            Application.ScreenUpdating = True

        Next i
    End If

 End Sub