Code:
Sub Convert_Html_Entities()
'''''''''''''' TeachExcel.com ''''''''''''''
'Convert HTML Entities into readable text.
Application.ScreenUpdating = False
For Each c In Selection
'Replace the entities - one per line.
c.Value = Replace(c.Value, """, """")
c.Value = Replace(c.Value, "&", "&")
c.Value = Replace(c.Value, "'", "'")
c.Value = Replace(c.Value, "<", "<")
c.Value = Replace(c.Value, ">", ">")
c.Value = Replace(c.Value, " ", " ")
c.Value = Replace(c.Value, "¡", "¡")
c.Value = Replace(c.Value, "¢", "¢")
c.Value = Replace(c.Value, "£", "£")
c.Value = Replace(c.Value, "¤", "¤")
c.Value = Replace(c.Value, "¥", "¥")
c.Value = Replace(c.Value, "¦", "¦")
c.Value = Replace(c.Value, "§", "§")
c.Value = Replace(c.Value, "¨", "¨")
c.Value = Replace(c.Value, "©", "©")
c.Value = Replace(c.Value, "ª", "ª")
c.Value = Replace(c.Value, "«", "«")
c.Value = Replace(c.Value, "¬", "¬")
c.Value = Replace(c.Value, "®", "®")
c.Value = Replace(c.Value, "¯", "¯")
c.Value = Replace(c.Value, "°", "°")
c.Value = Replace(c.Value, "±", "±")
c.Value = Replace(c.Value, "²", "²")
c.Value = Replace(c.Value, "³", "³")
c.Value = Replace(c.Value, "´", "´")
c.Value = Replace(c.Value, "µ", "µ")
c.Value = Replace(c.Value, "¶", "¶")
c.Value = Replace(c.Value, "·", "·")
c.Value = Replace(c.Value, "¸", "¸")
c.Value = Replace(c.Value, "¹", "¹")
c.Value = Replace(c.Value, "º", "º")
c.Value = Replace(c.Value, "»", "»")
c.Value = Replace(c.Value, "¼", "¼")
c.Value = Replace(c.Value, "½", "½")
c.Value = Replace(c.Value, "¾", "¾")
c.Value = Replace(c.Value, "¿", "¿")
c.Value = Replace(c.Value, "À", "À")
c.Value = Replace(c.Value, "Á", "Á")
c.Value = Replace(c.Value, "Â", "Â")
c.Value = Replace(c.Value, "Ã", "Ã")
c.Value = Replace(c.Value, "Ä", "Ä")
c.Value = Replace(c.Value, "Å", "Å")
c.Value = Replace(c.Value, "Æ", "Æ")
c.Value = Replace(c.Value, "Ç", "Ç")
c.Value = Replace(c.Value, "È", "È")
c.Value = Replace(c.Value, "É", "É")
c.Value = Replace(c.Value, "Ê", "Ê")
c.Value = Replace(c.Value, "Ë", "Ë")
c.Value = Replace(c.Value, "Ì", "Ì")
c.Value = Replace(c.Value, "Í", "Í")
c.Value = Replace(c.Value, "Î", "Î")
c.Value = Replace(c.Value, "Ï", "Ï")
c.Value = Replace(c.Value, "Ð", "Ð")
c.Value = Replace(c.Value, "Ñ", "")
c.Value = Replace(c.Value, "Ò", "")
c.Value = Replace(c.Value, "Ó", "")
c.Value = Replace(c.Value, "Ô", "")
c.Value = Replace(c.Value, "Õ", "Õ")
c.Value = Replace(c.Value, "Ö", "Ö")
c.Value = Replace(c.Value, "×", "")
c.Value = Replace(c.Value, "Ø", "Ø")
c.Value = Replace(c.Value, "Ù", "Ù")
c.Value = Replace(c.Value, "Ú", "Ú")
c.Value = Replace(c.Value, "Û", "Û")
c.Value = Replace(c.Value, "Ü", "Ü")
c.Value = Replace(c.Value, "Ý", "Ý")
c.Value = Replace(c.Value, "Þ", "Þ")
c.Value = Replace(c.Value, "ß", "ß")
c.Value = Replace(c.Value, "à", "à")
c.Value = Replace(c.Value, "á", "á")
c.Value = Replace(c.Value, "â", "â")
c.Value = Replace(c.Value, "ã", "ã")
c.Value = Replace(c.Value, "ä", "ä")
c.Value = Replace(c.Value, "å", "å")
c.Value = Replace(c.Value, "æ", "æ")
c.Value = Replace(c.Value, "ç", "ç")
c.Value = Replace(c.Value, "è", "è")
c.Value = Replace(c.Value, "é", "é")
c.Value = Replace(c.Value, "ê", "ê")
c.Value = Replace(c.Value, "ë", "ë")
c.Value = Replace(c.Value, "ì", "ì")
c.Value = Replace(c.Value, "í", "í")
c.Value = Replace(c.Value, "î", "î")
c.Value = Replace(c.Value, "ï", "ï")
c.Value = Replace(c.Value, "ð", "ð")
c.Value = Replace(c.Value, "ñ", "ñ")
c.Value = Replace(c.Value, "ò", "ò")
c.Value = Replace(c.Value, "ó", "ó")
c.Value = Replace(c.Value, "ô", "ô")
c.Value = Replace(c.Value, "õ", "õ")
c.Value = Replace(c.Value, "ö", "ö")
c.Value = Replace(c.Value, "÷", "÷")
c.Value = Replace(c.Value, "ø", "ø")
c.Value = Replace(c.Value, "ù", "ù")
c.Value = Replace(c.Value, "ú", "ú")
c.Value = Replace(c.Value, "û", "û")
c.Value = Replace(c.Value, "ü", "ü")
c.Value = Replace(c.Value, "ý", "ý")
c.Value = Replace(c.Value, "þ", "þ")
c.Value = Replace(c.Value, "ÿ", "ÿ")
c.Value = Replace(c.Value, "Œ", "")
c.Value = Replace(c.Value, "œ", "")
c.Value = Replace(c.Value, "Š", "Š")
c.Value = Replace(c.Value, "š", "š")
c.Value = Replace(c.Value, "Ÿ", "Ÿ")
c.Value = Replace(c.Value, "ƒ", "")
c.Value = Replace(c.Value, "ˆ", "ˆ")
c.Value = Replace(c.Value, "˜", "˜")
c.Value = Replace(c.Value, " ", "")
c.Value = Replace(c.Value, "‌", "")
c.Value = Replace(c.Value, "‍", "")
c.Value = Replace(c.Value, "‎", "")
c.Value = Replace(c.Value, "‏", "")
c.Value = Replace(c.Value, "–", "")
c.Value = Replace(c.Value, "—", "")
c.Value = Replace(c.Value, "‘", "‘")
c.Value = Replace(c.Value, "’", "’")
c.Value = Replace(c.Value, "‚", "‚")
c.Value = Replace(c.Value, "“", "“")
c.Value = Replace(c.Value, "”", "”")
c.Value = Replace(c.Value, "„", "„")
c.Value = Replace(c.Value, "†", "†")
c.Value = Replace(c.Value, "‡", "‡")
c.Value = Replace(c.Value, "•", "•")
c.Value = Replace(c.Value, "…", "…")
c.Value = Replace(c.Value, "‰", "‰")
c.Value = Replace(c.Value, "‹", "‹")
c.Value = Replace(c.Value, "›", "›")
c.Value = Replace(c.Value, "€", "€")
c.Value = Replace(c.Value, "™", "™")
Next c
Application.ScreenUpdating = True
End Sub
no more code