Импорт данных и переименование листа

Question

У меня есть несколько шаблонов листа с кнопкой для импорта. Идея состоит в том, что каждый раз, когда другая рабочая книга «выбирается», соответствующие данные из листа «сводка» импортируются в активную таблицу с помощью кнопки. Я, однако, не хочу переименовывать активную таблицу с частью имени файла из другой рабочей книги, например рабочей книги, чтобы импортировать Test_somthing .. затем после импорта данных "Test - Summary".

Я знаю, что я почти там, но особенно переименование листа является проблемой.

Sub Import()
  Dim FileNames As Variant
    Dim FileName As Variant
    Dim WSNew1 As Worksheet
    Dim ActiveListWB As Workbook
    Set DestinationWB = ThisWorkbook.ActiveSheet


    FileNames = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*),*.xls*", _
                                               Title:="Select Foreto Import", _
                                               MultiSelect:=True)


    If VarType(FileNames) = vbBoolean Then
        If Not FileNames Then Exit Sub
    End If


    For Each FileName In FileNames

        Set WSNew1 = ActiveWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
        'I know this is adding the sheet not only copying the sheet data

        Set ActiveListWB = Workbooks.Open(FileName)
        ActiveListWB.Sheets("Summary").Range("D2:CI206").Copy
        DestinationWB.Range("A1:Z40").PasteSpecial xlPasteFormats

        WSNew1.Name = Split(ActiveListWB.Name, "_")(0) & " - Summary"
        'wan't to rename active in active workbook not import and rename a sheet        

        ActiveListWB.Close False
    Next FileName

End Sub