Special characters problem

[philk12]

it worked finally!
But just one thng how do I replace special characters.
Do I have to copy them from xl sheet and paste in my script below..
is there any automated way of removing any special characters?

Thanks




Private Sub Worksheet_Change(ByVal Target As Range)
For x = 0 To 9
Cells.Replace What:=x, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Next x
Cells.Replace What:="&", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="/", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="#", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="-", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

 

[AnotherHiggins]

Define "special characters"

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.

 

[SkipVought]

Hi,

Whooa! In the Worksheet_Change event? Why there? All kind of recursion unless you turn off EnableEvents.

And what is the variable x shouldn't it be an ARRAY that contains the various special characters you want to replace?

sub ReplaceSpecialCharacters()
  dim x() as string, i as integer
  x(0) = "!"
  x(1) = "@"
'...

  for i = 0 to ubound(x)
     Cells.Replace What:=x(i), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
  next
end sub

Skip,

_[red][/red]