Este fórum está sendo desativado

[topscore]

Pessoal, seguinte:

Preciso de um código para inserir rodapé Automático e não consigo especificar a fonte.
O texto do rodapé está na célula "O198". A Fonte é "Autography" (está baixada e instalada, funciona normal nas células). Tamanho 8 e, se possível, cor azul.

Código: Selecionar todos

Application.PrintCommunication = False
With ActiveSheet.PageSetup
.RightFooter = "&8 " & "Autography" & Range("O198").Value
End With
Application.PrintCommunication = True

Ele está escrevendo "Autography" + o texto da "O198", não entendeu que é fonte. Nem ideia de como definir a cor.

Podem ajudar? Com uma cor azul qualquer, depois eu arrumo.
Desde já, obrigado.

[Foxtri]

Olá
Veja se funciona.
With ActiveSheet.PageSetup
.RightFooter = "&K0000FF "&""Autography"" &8" & Range("O198").Value
End With
Até
Foxtri