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