Forming String from Selected Items

Thanks for these ideas, guys.

Bob

I have a listing of schools, some records selected with a "Y". When all of the desired schools have been selected, I want to run a macro that will scan through those cells and, for each one that is selected, put the school name into a string. I want that resultant string to be written to a cell.

Here's an example of the data:

    DHS
Y   East
     McCowan
     West
     Amber Terrace
     Cockrell Hill
     Moates
Y   Northside
     Ruby Young
Y   The Meadows
     Woodridge

The resultant string should then read "East, Northside, The Meadows"

TIA

Bob