Hjælp til script

Hej.

Jeg har en makro hvor jeg åbner og henter nogle forskellige medarbejdernumre fra flere filer. Det har virket længe, men en medarbejder har nu fået et medarbejdernummer som indeholder et bogstav. Derfor får jeg en runtime error 13, fordi det tal nu ikke kan defineres. Min xCell står i Debuggen defineret som netop dette medarbejdernummer.
Jeg har forsøgt at lave en "on error resume next" men så får jeg ikke resten med.

Min kode ser således ud:
    Selection.Name = "Ark1"
    Range("MRS").Sort key1:=Range("A1"), Order1:=xlAscending, DataOption1:=xlSortTextAsNumbers

'Text til numre
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select

For Each xCell In Selection
    xCell.Value = CDec(xCell.Value)
Next xCell


Kan nogen mon hjælpe mig med dette problem?