Sub RemoveTags()
Dim r As Range, teststr As String, oRegExp As Object, Matches As Object
Selection.NumberFormat = "0.00E+00"
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
.Global = True
.ignorecase = True
For Each r In Selection
.Pattern = "(\<.*?\>)"
Set Matches = .Execute(r)
r.Value = .Replace(r.Value, " ")
.Pattern = "(\<\;)"
Set Matches = .Execute(r)
r.Value = .Replace(r.Value, "<")
.Pattern = "(\&\;)"
Set Matches = .Execute(r)
r.Value = .Replace(r.Value, "&")
.Pattern = "(\>\;)"
Set Matches = .Execute(r)
r.Value = .Replace(r.Value, ">")
.Pattern = "(\"\;)"
Set Matches = .Execute(r)
r.Value = .Replace(r.Value, "'")
Next r
End With
End Sub