Sub bb()
Dim c As Range, d$, s$, i&
For Each c In Selection
  d = c.Value
  s = ""
  For i = 1 To Len(d) Step 2
    s = s & Chr$("&h" & Mid$(d, i, 2))
  Next
  c.Value = s
Next
End Sub