Verzeihung hier sind sie - wie gesagt, hab ein bisschen herumprobiert und verschiedene Varianten ausprobiert, vielleicht auch ein wenig durcheinander: 

Sub Copy_file()
    
    Dim Dlg As FileDialog
    
    Dim WBRISK_1 As Workbook, WBRISK_2 As Workbook, WBRISK_3 As Workbook
    
    Dim WBZiel As Workbook, AB1 As Worksheet, AB2 As Worksheet, AB3 As Worksheet
    
    Dim NeuPfad
    
    Dim WB As Workbook
    

'Erstellung einer neuen Arbeitsmappe

Set WB = Workbooks.Add

    'Auswahl und Öffnung der externen Datei 1: RISK_1 (Dialogfenster)
    

  ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xlsx*", , "Bitte die Datei RISK_1 zum Kopieren öffnen ...")

  ExportDatei = CStr(ExportDatei)

  If ExportDatei = "Falsch" Then Exit Sub
  
    Set WBRISK_1 = Workbooks.Open(ExportDatei)
    
       
     
    'Externe Datei 1: RISK_1 Arbeitsblatt in die neu erstellte Arbeitsmappe kopieren und umbennen
    
    
    AB1.Copy
    Set WBZiel = ActiveWorkbook 'die neu erstellte Arbeitsmappe
    
    Set AB1 = WBRISK_1.Sheets("1")
    
    AB1.Copy after:=WBZiel.Sheets(Sheets.Count)
    ActiveSheet.Name = "number"
      
      
      
    
    'Auswahl und Öffnung der externen Datei 2: RISK_2 (Dialogfenster)

  ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xlsx*", , "Bitte die Datei RISK_2 zum Kopieren öffnen ...")

  ExportDatei = CStr(ExportDatei)

  If ExportDatei = "Falsch" Then Exit Sub
  
       Set WBRISK_2 = Workbooks.Open(ExportDatei)
       
       
     
    'Externe Datei 2: RISK_2 Arbeitsblatt in die neu erstellte Arbeitsmappe kopieren und umbennen
    
    
    Set AB2 = WBRISK_2.Sheets("2")
 
    AB2.Copy after:=WBZiel.Sheets(Sheets.Count)
    ActiveSheet.Name = "account"
     
    
    
    
    
    'Auswahl und Öffnung der externen Datei 3: RISK_3 (Dialogfenster)
    
    ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xlsx*", , "Bitte die Datei RISK_3 zum Kopieren öffnen ...")

  ExportDatei = CStr(ExportDatei)

  If ExportDatei = "Falsch" Then Exit Sub
    
       Set WBRISK_3 = Workbooks.Open(ExportDatei)
       
    
    
    'Externe Datei 3: RISK_3 Arbeitsblatt in die neu erstellte Arbeitsmappe kopieren und umbennen
    
    
         Set AB3 = WBRISK_3.Sheets("3")
 
    AB3.Copy after:=WBZiel.Sheets(Sheets.Count)
    ActiveSheet.Name = "head"
     
     
     
    'Auswahl Speicherort-Verzeichnis
        
    Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
    If Dlg.Show = True Then
        NeuPfad = Dlg.SelectedItems(1) & "\"
         
        WBZiel.SaveAs NeuPfad
         
        WBRISK_1.Close
        
        WBRISK_2.Close
         
        WBRISK_3.Close False
         
    Else
        MsgBox "ERROR"
        
        Exit Sub
         
    End If

End Sub
 

Vielen Dank im Voraus! 

LG