Looping through range to replace data

Hello Everybody,

I have data in column A, as 005 d33++123121245, and i need to replace data "005 d33++". i need only numbers.
when i tried the below code I am getting reslut "TRUE" not what i wanted, can anybody plesae help me to correct my code.

Sub Macro2()


For i = 1 To 100
    Cells(i, 1).Value = Cells(i, 1).Replace _
        (What:="005 d33++", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False)
Next i

End Sub

So simpler:

    Range("A1:A100").Replace What:="005 d33++", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Or even:

    Range("A:A").Replace What:="005 d33++", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

I've marked this thread as SOLVED for you.
Next time, select Thread Tools from the links above to mark a thread as SOLVED. Thanks.