Macro to change hexadecimal values to normal

Try:

Sub foo()
Dim c As Range
On Error Resume Next
For Each c In Selection
    c.Value = WorksheetFunction.Hex2Dec(c.Text)
Next c
End Sub

Hi,

just notice worksheet function Hex2Dec is limited to 10 characters.
If there is more characters to convert, up to 15, better is to use full VBA convertion :

Function Hexa2Dec$(Rg As Range)
         Dim Cel As Range
    For Each Cel In Rg
        Select Case Len(Cel.Value)
               Case Is > 15: Exit Function
               Case Is > 0:  V = V + CDec("&h" & Cel.Value)
        End Select
    Next
         Hexa2Dec = Format$(V, "#,##0")
End Function

If more than a cell in the range, this function operates a sum of the hexa cells …