Remove strange characters from 1 column

[tlpeter]

How can remove strange characters from one column ?
I have found a code that works but it does on all cells

I just need it on one column
I tried searching but could not find anything related

ACA - Implement IP Office
ACS - Implement IP Office
ACA - Voice Services Management
______________
Women and cats can do as they please and men and dogs should relax and get used to the idea!

 

[Andrzejek]

What's your code for one cell?

I am sure it could be modified to do what you need.

Have fun.

---- Andy

 

[MasterRacker]

If it's something you don't need to do very often, you could "brute force" it. Copy the column you want into another worksheet, run your code and paste the corrected data back over the original.

_____
Jeff
[small][purple]It's never too early to begin preparing for [/purple]International Talk Like a Pirate Day
"The software I buy sucks, The software I write sucks. It's time to give up and have a beer..." - Me[/small]

 

[tlpeter]

I only have a code for all cells
I have it found in the search

Private Sub Worksheet_Change(ByVal Target As Range)
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
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
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

ACA - Implement IP Office
ACS - Implement IP Office
ACA - Voice Services Management
______________
Women and cats can do as they please and men and dogs should relax and get used to the idea!

 

[SkipVought]

Please post VBA Code questions in forum707.

Skip,

_{Have you heard that the roundest knight at King Arthur's round table was...
Sir Cumference!}

 

[SkipVought]

Please post VBA Code questions in Forum707

Skip,

_{Have you heard that the roundest knight at King Arthur's round table was...
Sir Cumference!}