On Jul 20, 6:24*pm, ryguy7272
wrote:
This works for me:
Sub Commas()

'Do Until ActiveCell = ""
For X = 1 To 1
* * Dim Rng As Range

* * Set Rng = Range("A1", Range("A100").End(xlUp))
* * For Each cell In Rng

* * If cell.Value < "" Then
* * * * ActiveCell.Offset(0, 2).Select
* * * * ActiveCell.FormulaR1C1 = "=MID(RC[-2],FIND("","",RC[-2]&"","")+2,999)"
* * * * ActiveCell.Offset(1, -2).Select
* * End If

* * Next cell

Next X
'Loop

End Sub

HTH,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''..



"Sam Wilson" wrote:

If you had the string in cell A1:

=TRIM(RIGHT(A1,LEN(A1)-FIND(",",A1)))

"andreas" wrote:

Dear Experts:

I got the following string in a cell:

string,space,string, e.g.: New York Street 7, New York 54334 or
Green Street, 74334 St. Petersburg.

I would like to apply a formula to all these cells so that all the
characters before the comma are cut out and only the string after the
comma is left over, e.g. New York 54334 or 74334 St. Petersburg

Help is much appreciated. Thank you very much in advance.
Regards, Andreas- Hide quoted text -

- Show quoted text -

Hi, thank you very much for your professional help. Great Stuff.
Regards, Andreas