Replace special characters with Space

Hi All

I am looking a macro which should perform below activities

I have a lists of suppliers which needs to cleansed....

1.replace all the special characters with a space
2.replace Corporation with Corp
Incorporation with Inc
Limited with Ltd
Limited partnership/ltd partnership with LP
Company with Co
ASSC/ASSOC with ASSOCIATION/ASSOCIATES (SEARCH SUPPLIER IN GOOGLE FOR THE CORRECT ONE)
MGNT with MANAGEMENT
SVCS with SERVICES
DEPT with DEPARTMENT
Unltd with UNLIMITED
Ctr with CENTER
UNIV with UNIVERSITY
3. Remove any text, Special characters and numbers after INC,CO, LTD, CORP,LLP, LLC

The macro should when I select any particular column… not restricted to column A
Please find the enclosed excel for your perusal

Thank you

Regards
Kiran Kumar

Here is the code...

Please Login or Register  to view this content.