Convert Excel Cell Text in Bold or Italic to HTML Tags/Convert Cell Line Breaks

[snb]

@greg

Reduce

ActiveSheet.Columns(1).Select
  Set oRng = Nothing
  On Error Resume Next
  Set oRng = Selection.Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues)

to

  On Error Resume Next
  Set oRng = activesheet.Columns(1).SpecialCells(2,2)