Sub SelectSnippetFiles3()
  Dim dlgFD As FileDialog, FileChosen As Integer, i As Integer
  Dim DocSrc As Document, DocTgt As Document, sTitle As String, rngTgt As Range, rngSrc As Range
  Dim ccTgt As ContentControl, ccSrc As ContentControl, ccsSrc As ContentControls
  
  Set dlgFD = Application.FileDialog(msoFileDialogFilePicker)
  With dlgFD
    .InitialView = msoFileDialogViewList
    .AllowMultiSelect = True
    FileChosen = .Show
  
    If FileChosen = -1 Then
      Set DocTgt = ActiveDocument
      For Each ccTgt In DocTgt.SelectContentControlsByTag("Snip")
        ccTgt.Range.Text = ""      'empty CC before refilling
      Next ccTgt
      'Application.ScreenUpdating = False
      For i = 1 To dlgFD.SelectedItems.Count
        Debug.Print dlgFD.SelectedItems(i)
        Set DocSrc = Documents.Open(dlgFD.SelectedItems(i))
        For Each ccSrc In DocSrc.SelectContentControlsByTag("Snip")
          sTitle = ccSrc.Title
          Set rngSrc = ccSrc.Range
          rngSrc.Select
          For Each ccTgt In DocTgt.SelectContentControlsByTitle(sTitle)
            Set rngTgt = ccTgt.Range
            If Not ccTgt.ShowingPlaceholderText Then rngTgt.Collapse Direction:=wdCollapseEnd
            rngTgt.FormattedText = rngSrc.FormattedText
          Next ccTgt
        Next ccSrc
        DocSrc.Close SaveChanges:=False
      Next i
      'Application.ScreenUpdating = True
    End If
  End With
 End Sub