Option Explicit
 
Private Function CellsToHtml(ParamArray RangeCelName()) As String
    If IsMissing(RangeCelName) Then Exit Function
 
    Dim i           As Long
 
    For i = LBound(RangeCelName) To UBound(RangeCelName)
        With Hoja1.Range(CStr(RangeCelName(i)))
            With .Font
                If .Italic Then CellsToHtml = CellsToHtml & "<i>" & vbNewLine
                If .Underline > 0 Then CellsToHtml = CellsToHtml & "<u>" & vbNewLine
                If .Bold Then CellsToHtml = CellsToHtml & "<b>" & vbNewLine
                CellsToHtml = CellsToHtml & "<font name=" & Chr(34) & .Name & Chr(34) & _
                        " size=" & Chr(34) & .Size & Chr(34) & _
                        " color=" & Chr(34) & .Color & Chr(34) & _
                        ">" & Replace(Hoja1.Range(CStr(RangeCelName(i))).Text, vbNewLine, "<br>") & "</font>" & vbNewLine
                If .Bold Then CellsToHtml = CellsToHtml & "</b>" & vbNewLine
                If .Underline > 0 Then CellsToHtml = CellsToHtml & "</u>" & vbNewLine
                If .Italic Then CellsToHtml = CellsToHtml & "</i>" & vbNewLine
            End With
        End With
    Next i
End Function
 
Sub Main()
    MsgBox CellsToHtml("A3","A10","A34")
End Sub