[Resolvido]Inserir texto no Excel parcialmente formatado em Negrito e Vermelho

Olá pessoal!

Preciso formatar alguns dados na exportação do Access para o Excel.
Alguém saberia dizer se tem como, na expressão abaixo, tornar o  Me.txt_Empresa (e apenas ele) em negrito e na cor vermelha no Excel?

.Range("C14") = "Conforme relação de documentos apresentados pela empresa " & Me.txt_Empresa & ", temos por informar que..."

Exemplo:

Conforme relação de documentos apresentados pela empresa COCA COLA, temos por informar que...

Seria fácil se a célula inteira fosse formatada. Bastaria o modelo excel estar assim. Já até tentei utilizar um .Cells.Replace com o texto a ser substituído já estar pré-formatado, mas não adianta.

Obrigado!!

Miguel Serra

Encontrei a solução! (pelo menos, uma delas!!)

Para que possa ser útil a alguém, segue

Tem que ter os seguintes itens:

Dim str_len As String

str_len = len(Me.txt_Empresa)

E no script, incluir:

  .Range("C14") = "Conforme relação de documentos apresentados pela empresa " & Me.txt_Empresa & ", temos por informar que..."
  .ActiveCell.Characters(start:=57, length:=str_len).Font.fontStyle = "Negrito"
  .ActiveCell.Characters(start:=57, length:=str_len).Font.Size = 12
  .ActiveCell.Characters(start:=57, length:=str_len).Font.Color = -16776961

O "57" é o número de caracteres anteriores ao texto, contido na expressão "Conforme relação de documentos apresentados pela empresa "
Se este texto for variável, é só adiciona-lo a uma outra string str_lenprefixo = len(Me.CampoPrefixo) e substituir o 57 por str_lenprefixo


Um abraço!