Boa noite!!

Dessa forma te ajuda???

Option Explicit

Sub Fonte()
With ActiveCell.Font
 .Bold = True
 .Italic = True
End With
End Sub

Att

Não Alexandre. Ainda não é assim que preciso. Vou tentar explicar melhor:

Na A1, tenho escrito "TESTE" em negrito e em vermelho mesmo. Quero criar uma variável chamada NOME_FORMATADO (...por exemplo). Quero que na célula A2 fique assim:

Esse TESTE foi bem sucedido

...algo do tipo:

Activecell.value = "Esse " & NOME_FORMATADO & "foi bem sucedido"

Na variável NOME_FORMATADO foi o conteudo "TESTE" em negrito e em vermelho porque ele copiou os formatos da celula A1 que ja estava pre-formatada.

Tentei ser o mais claro possível....

Alguem sabe?

É um pouco mais complexo, teria de utilizar de funções UDF para captar o formato e tudo mais.

De uma olhada no link abaixo :

Show FORMULA or FORMAT of another cell
http://dmcritchie.mvps.org/excel/formula.htm

[]S

Nao consegui entender o que me passou, mas valeu pela dica!

🙁

Nao consegui entender o que me passou, mas valeu pela dica!

Foi como eu disse, é bem complexo, e dependeria de se fazer alguns testes para ver se funcionaria da forma que quer.

No link que passei são funcões personalizadas, para se captar o formato de uma celula, mas o que você pretende alem do formato é que capte a formatação de determinado texto, e isto acho não ser possivel.