Function HtmlCellTextCodeforMac(cel)
Dim BD, Bfn, iD, iFn, uD, uFn, sD, sFn, cl
code = Split(Replace(cel.Value(xlRangeValueXMLSpreadsheet), "ss:", ""), "<Data")(1)
code = Split(Mid(code, InStr(1, code, ">") + 1), "</Data>")(0)
code = Replace(Replace(code, "html:", ""), "x:Family=""Decorative""", "")
For I = 1 To 100: code = Replace(code, "Size=""" & I & Chr(34), "style=""font-size:" & I & "pt;"""): Next
If cel.Font.Bold = True Then BD = "<b>": Bfn = "</b> "
If cel.Font.Italic = True Then iD = "<i>": iFn = "</i> "
If cel.Font.Underline > 0 Then uD = "<u>": uFn = "</u> "
If cel.Font.Strikethrough = True Then sD = "<Strike>": sFn = "</strike>"
If cel.Font.Color <> vbBlack Then cl = "color=" & coul_XL_to_coul_HTMLX(cel.Font.Color)
HtmlCellTextCodeforMac = "<font style=""font-size:11pt;""" & cl & ">" & sD & iD & BD & uD & code & uFn & Bfn & iFn & sFn & "</font>"
End Function