Replace Specific text with multiple occurance in a single cell

[aaroneay]

I want a excel VBA code that can replace Specific text with multiple occurance in a single cell with a number, example given below"
If Range("A1") has value

DX-12345, I am fine
DX-3788277, How are you?
I want to tell you xyz.

DX-678900, I am coming at your home; DX-678900_NO
DX-5432123, Come over.

Then code should replace all the starting DX- with D1-, D2-, D3-, ad so on, example given below:

D1-12345, I am fine
D2-3788277, How are you?
I want to tell you xyz.

D3-678900, I am coming at your home; DX-678900_NO
D4-5432123, Come over.

[sweep]

Hi,

Try this:

Please Login or Register  to view this content.

[aaroneay]

Thank you for code :-)

This working but it is also changing "DX" if it comes in between lines. I want to replace only the DX which is coming at the starting of the line
There is one thing which can help modify this code, code should not change the value of "DX" if "; " comes before "DX", e.g, it should not replace "; DX"
Please help!!

[alidurfani]

if A1 text have always 5 occurrences of DX then Try

Please Login or Register  to view this content.

[aaroneay]

Actually, occurrences of DX can vary

[alidurfani]

It will handle till 10 Occurrences of DX

If you give the info that what would be the maximum number of DX at starting then I will modify formula for you to cover all DX

Please Login or Register  to view this content.

[jindon]

Try

Please Login or Register  to view this content.

[aaroneay]

There are at maximum 30 DX

[alidurfani]

For up to 30 DX Try

Please Login or Register  to view this content.