Como crear una macro para guardar con el mismo nombre de la hoja en un libro nuevo

Te regreso la macro con los cambios

Sub Crear_Expediente()
Dim hoja As Worksheet, existe As Boolean, nueva As String
nueva = Sheets("Concatena").Range("B1")
If nueva = Empty Then Exit Sub
For Each hoja In Worksheets
    If hoja.Name = nueva Then existe = True: _
    MsgBox "Ya existe el expediente", vbCritical
Next hoja
If existe = False Then
    Sheets.Add After:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = nueva
        .Tab.Color = 65535
    End With
    Sheets("Concatena").Range("A2:A1100").Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1:C1").Select
    'Mod.por.DAM
    ruta = ActiveWorkbook.Path
    ActiveSheet.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ruta & "\" & nueva & ".txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
    ActiveWorkbook.Close
    'Mod.por.DAM
    MsgBox "Se Creo Correctamente", vbInformation
    Sheets("Concatena").Select
End If
End Sub

Saludos.Dante Amor
Si es lo que necesitas.