Sub HexToDec()
Dim fin As Long, r As Long
fin = [A65536].End(xlUp).Row
For r = 1 To fin
Cells(r, 2) = "MOV" & HEXA2DEC(Mid(Cells(r, 1), 4, 3))
Next r
End Sub
Public Function HEXA2DEC(ByVal sHex As String) As Integer
On Error Resume Next
HEXA2DEC = Val("&h" & sHex)
End Function