Excel 2007 : Code to delete text after comma

Is there any way to write a macro that will delete the text after ",".

The data is in below form:

1) Boston University, Boston College Law School
2) Harvard University, Columbia University School of Law

I am thinking of macro that will delete the text after "," like:

1) Boston University
2) Harvard University

Any help would be highly appreciated.

Thanks.

Thanks Marco!

You are correct, but there are more than 20K rows and I have to apply this on filtered rows that's why I am looking for a macro.

To best describe or illustrate your problem you would be better off attaching a dummy workbook, the workbook should contain the same structure and some dummy data of the same type as the type you have in your real workbook - so, if a cell contains numbers & letters in this format abc-123 then that should be reflected in the dummy workbook.

If needed supply a before and after sheet in the workbook so the person helping you can see what you are trying to achieve.

Doing this will ensure you get the result you need!

Please find attached sample workbook along with the requirements inside.

Thanks.

Finally, I figure out the solution:

Code:
Dim s As String
Sub removeco()
With WorksheetFunction

Set a = Range("a1:a26")

For Each a In Range("a1:a26")

If Len(a) - Len(.Substitute(a, ",", "")) < 2 Then

s = Left(a.Value, .Find(",", a.Value) - 1)
a.Value = s
End If
Next a
End With
End Sub
[\CODE]

Finally, I figure out the solution:

Please Login or Register  to view this content.

Thanks Marcol! It works