adding values as 1 string, based on adjacent column

I'll try to keep this a straight forward as possible. I'd like take all the names in multiple row and add them together as one string, based on the status of an adjacent column.

A B
bill yes
joe yes
kim no
mary yes


To get: "bill, joe, mary"

I can get the string made, but cant quite get the "based-on" part ...
---------------------------------------------------
Sub GetSSM()

Dim i, LastRow, OneCell

LastRow = Range("B" & Rows.Count).End(xlUp).Row

Range("AA1").Value = ""

For i = 1 To LastRow


OneCell = OneCell & Cells(i, "B").Value & ", "
Next
Range("AA1").Value = Left(OneCell, Len(OneCell) - 1)
Range("AA1").Select
'Selection.Copy

------------------------------

Thanks in advance!!
TC

You need to add some code tags to your post, before you get a smack, but the resolution is quite easy:

Please Login or Register  to view this content.

(Assuming that your names are in column A and the yes/no in column B, as per your example (although your code contradicts this).

Thanks for your quick response. Yes, i noticed my code was not matching after I posted. I took the actual bits and tried to simplify.

I wil go and add this and let you know.