Display content as html preview on merged cell

[vuongdd1]

Hi All,

I have one issue related to displaying content as html preview on the merged cell.

Sample : <b> Test </b>

I merged cells from B2: C9

I want the range [B2: C9] to display bold "Test" text.

I also tried using code;

Dim Ie As Object

Set Ie = CreateObject ("InternetExplorer.Application")
With Ie
.Visible = False
.Navigate "about: blank"
.Document.Body.innerHTML = Sheets (Constant.Output_Sheet_Name) .Range ("B2"). Value

.ExecWB 17, 0
'Select all contents in browser
.ExecWB 12, 2

ActiveSheet.Paste Destination: = Sheets (Constant.Output_Sheet_Name) .Range ("B2")

.Quit
End With

It works in cell unmerge case. However I want it to work on merge cells

Please help me. Thanks

 

[vuongdd1]

Please Help me. Thanks