[Resolvido]Criar relatório em xls, com cores de cabeçalho

Pessoal!

Procurei aqui e não encontrei nada parecido.

Eu preciso formatar, o cabeçalho, pra uma cor específica, ao exportar uma query para excel. Atualmente, ela exporta em cinza. Tem como mudar isso?

Já tentei criar um subformulário pra query e exportar, mesmo assim, ele me retornou tudo cinza. Alguma idéia?

Ola seja bem vindo ao forum;

Código:

Private Sub SeuBotao_Click()
'By JPaulo ® Maximo Access
Dim strLivro As String
Dim xls As Object
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "SuaConsulta", CurrentProject.Path & "\" & "teste" & ".xlsx", True
  Set xls = CreateObject("Excel.Application")
    strLivro = CurrentProject.Path & "\" & "teste" & ".xlsx"
    xls.Workbooks.Open (strLivro)
    xls.Visible = True
    xls.ActiveSheet.Range("A1").Select
    xls.ActiveSheet.Range("A1:Z1").Interior.ColorIndex = 3 '3 é vermelho
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub


Numeração das cores;
msdn.microsoft.com/pt-br/library/office/ff840443.aspx

Obrigado JPaulo, pesquisando um pouco mais, eu consegui chegar na resposta! Consegui colar algumas informações como comentário, na célula do Excel. Ajudou bastante!

Resolvido