VBA macro (Excel) to remove inverted commas (x'xxx) in selected column

Good afternoon
In the many columns of my worksheet some cells are filled with pasted data in the form X'XXX.00; the other cells' formulas refer to this data. Due to the inverted commas, error #Value is all over the sheet.
I'm looking for a macro (VBA) which I can use after data has been pasted and which erases the inverted commas without affecting the formulas (which hold inverted commas, too).  X'XXX.00 data should then look like XXXX.
I still use Excel 2003 on Win XP + Win 7.
Any help will be very much appreciated.
Best regards
Karl
15-06-03---test-file.xls
CandidKarlitoAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

nutschCommented:
Try

cells.Replace What:=Chr(39), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Open in new window

Anne TroyEast Coast ManagerCommented:
That's only a small part of the problem, however, you can just Find and Replace. Select column CCC and hit Ctrl+H and type a ' in the Find What box and don't put anything in the replace with box. Hit Replace all.
CandidKarlitoAuthor Commented:
Thanks Nutsch and Dreamboat!

Nutsch:  Problem is, that this macro erases the inverted comma " ' "  in the formulas as well (which refer to a 3rd value on another sheet); I  would like to replace the inverted comma only in the cells' input values.

Dreamboat: the simple replace  function didn't work:
Ctrl + C = highlighting column -> Alt+E,E = Find and Replace -> Alt+T = Options -> Search by Columns -->
"Look in": "Values" doesn't work, and even if I select "Formulas" I get an error message / "Update values" pop-up, respectively.
The macro solution would be preferable - I have many of these sheets, pressing once a button is quicker...

Tks for your attention in this.
Karl
nutschCommented:
Hi Karl, this should be a quick fix with the special cells method. Try this update:
cells.SpecialCells(xlCellTypeConstants, 23).Replace What:=Chr(39), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
CandidKarlitoAuthor Commented:
Thank you very much!
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.