guma,

Boa tarde!

Anexe um arquivo exemplo, simulando manualmente, inclusive, como deve ser o resultado final.

Vc poderia salvar o intervalo como HTML usando o método PublishObjects do Wokrbook. Exemplo:

  ThisWorkbook.PublishObjects.Add(xlSourceRange, "C:MinhaPastaTeste.htm",  "Plan1", "A1:A3", xlHtmlStatic, "NomeDaDIV", "Título").Publish (True)

Entretanto, se vc quiser o código xml ao invés do html de uma célula há um método mais simples, que seria através da propriedade Value do Range. Exemplo:

  Debug.Print [A1:A3].Value(xlRangeValueXMLSpreadsheet)
  Debug.Print [A1:A3].Value(xlRangeValueMSPersistXML)
 

Ou simplesmente:

  Debug.Print [A1:A3].Value(11)
  Debug.Print [A1:A3].Value(12)

funciona, mas gerá um código muito "poluído" e difícil de alterar. Já tenho minhas tags prontas e o arquivo CSS. Estou pensando em fazer um código pra isso, meus textos são simples, só tem negrito, itálico e sublinhado.Estão em células do Excel, o problema é que a formatação não é uniforme só algumas palavras no texto estão formatadas, tem como ler estes textos e colocar as palavras formatadas entre tags com vba?

...tem como ler estes textos e colocar as palavras formatadas entre tags com vba?

Por exemplo, tendo algo numa TextBox1, selecionando um trecho determinado do texto e clicando no botão CommandButton1

Private Sub CommandButton1_Click()
  Dim s As String
  With TextBox1
    s = Mid(.Text, 1, .SelStart - 1) & _
      "<b>" & .SelText & "</b>" & _
      Right(.Text, Len(.Text) - .SelStart - .SelLength)
      .Text = s
  End With
End Sub