Quisiera que después de ejecutada la macro, o en su ejecución, quedara como se ve en la imagen de la hoja Global. que es la creada para recibir las copias. Los títulos ya yo pude agregar, y el 1º título con el color y negrita, pero no tengo la capacidad para lo demás y También el nombre de cada hoja existente así como el color del texto que lo hice en el primer, (usando la grabadora) pero me falta que lo haga para todas las copias.

Copiar el nombre de cada hoja y darle el color vbRed a Negrita (Bold) al nombre y títulos

https://www.subeimagenes.com/img/global-2095426.html" rel="nofollow"> Subido en https://www.subeimagenes.com" rel="nofollow - subir imagenes

Asi quisiera que quedara

Sub JuntarHojas()
Application.DisplayAlerts = False
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name = "Global" Then hoja.Delete
Next
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "Global"

       ' Range("A1:m1").Font.Color = vbRed
       ' Range("A1:M1").Font.Bold = True
    With Range("A1:M1").Font
        .Color = vbRed
        .Bold = True
    End With

For x = 2 To Sheets.Count
Sheets(x).Select

Range("a1:o" & Range("a65000").End(xlUp).Row).Copy

Sheets("Global").Range("a65000").End(xlUp).Offset(0, 0).PasteSpecial Paste:=xlValues

Next
Sheets("Global").Select
Range("A1").Select
End Sub