Exportar a excell con formato de celdas

Tengo una macro que exporta datos creando libros de excell pero no se cómo puedo hacer para que la cabecera de los excell salgan por ej con ancho 10 y de color amarillo.
Utilizo el objeto TransferSpreadsheet
Private Sub Cmdtrasferir_Click()
Dim IdOfic As String
On Error GoTo TratamientoErrores
IdOfic = "C:\bases por oficinas\" & Me.idOficina & ".xls"
DoCmd.OpenQuery "BaseExportMail", acNormal, acEdit
DoCmd.TransferSpreadsheet acExport, 8, "BaseExportMail", IdOfic, True, ""
DoCmd.Close acQuery, "BaseExportMail"
If Not Me.NewRecord Then
DoCmd.GoToRecord , , acNext
Cmdtrasferir_Click
End If
Exit Sub
TratamientoErrores:
MsgBox Err.Num & "&&&-&&&" & Err.Description
End Sub
Desde ya mi agradecimiento a cualquiera que me pueda ayudar