Hi Scott

You can use the following line to remove all commas from the
activesheet:

Activesheet.cells.Replace What:=",", Replacement:="", LookAt:=xlPart

You can restrict this to a particular column or range if required eg:

Columns(1).Replace What:=",", Replacement:="", LookAt:=xlPart

Does this do what you wanted?

Best regards

Richard



Scott_goddard wrote:

I have a work book with over 2000 cells each one differing in length and
content. They are all address. Each line is separated by a comma. I need
to remove these, any ideas???