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.