How to extract the universities out?

I have a column of data looking like this:

School of Business, Rockefeller College of Public Affairs and Policy, State University of New York at Albany, 1400 Washington Avenue, Albany, NY 12222
Bowling Green State University, Bowling Green, OH 43403
Marketing Department, Wharton School, University of Pennsylvania, Philadelphia, PA 19104

I want to keep only the university information which means transforming into sth like this:

State University of New York at Albany
Bowling Green State University
University of Pennsylvania

Does anybody have an idea on how do I do this?

Probably some macro would solve it easily...

Please Login or Register  to view this content.

This little UDF will do it for you:

Please Login or Register  to view this content.

How to install the User Defined Function:
1. Open up your workbook
2. Get into VB Editor (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste in your code (given above)
5. Get out of VBA (Press Alt+Q)
6. Save as a macro-enabled workbook

The function is installed and ready to use.

========
How to Use:

If the long text string is in A1, in an adjacent cell like B1 enter this formula:

=FINDIT(A1, "University", ",")


The function will return whichever substring within the long string holds the searched value. The substrings are denoted by the delimiter you set in the 3rd value.