Cambiar nombre a las hojas de un libro con VBA Excel

Te anexo la macro

Pon tus datos en estas líneas de la macro:

    ruta = "C:\trabajo\libros\"     'nombre de la carpeta
    hojaP = "Principal"             'nombre de la hoja principal
    hojaX = "xx"                    'nombre nuevo

Sub Cambiar_Nombre_hoja()
'Por Dante Amor
    'Cambiar el nombre de la hoja principal
    'de todos los libros de una carpeta
    '
    ruta = "C:\trabajo\libros\"     'nombre de la carpeta
    hojaP = "Principal"             'nombre de la hoja principal
    hojaX = "xx"                    'nombre nuevo
    '
    Application.ScreenUpdating = False
    If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
    '
    If Dir(ruta, vbDirectory) = "" Then
        MsgBox "La carpeta no existe"
        Exit Sub
    End If
    '
    arch = Dir(ruta & "*.xls*")
    Do While arch <> ""
        Set l2 = Workbooks.Open(ruta & arch)
        On Error Resume Next
        l2.Sheets(hojaP).Name = hojaX
        On Error GoTo 0
        l2.Close True
        arch = Dir()
    Loop
    MsgBox "Fin"
End Sub

.

.