Removing * from the end of text

[Steve Jukes]

Please help.
I have a list of companies and some have a * at the end of them. When I run the code below it deletes the whole name, even if the matchcase is set to false.

Any ideas???
Thankyou in advance for your help!!!!



Worksheets(1).Columns("b").Replace _
What:="*", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=True

[Aladin Akyurek]

On 2002-04-25 03:08, Steve Jukes wrote:
Please help.
I have a list of companies and some have a * at the end of them. When I run the code below it deletes the whole name, even if the matchcase is set to false.

Any ideas???
Thankyou in advance for your help!!!!



Worksheets(1).Columns("b").Replace _
What:="*", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=True

Did you also try Data|Text to Columns with * as delimiter?

Aladin

[Iain Lewis]

Try putting a ~ ( tilde ) befoer the * eg :

Worksheets(1).Columns("b").Replace _
What:="~*", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=True

[Steve Jukes]

Thank you the ~ works fine.

Many thanks

Steve

[Steve Jukes]

Thank you the ~ works fine.

Many thanks

Steve