Button that creates delimited comma list

Hello,

I'd like to create a button that does the following:

- Button is located in every city sheet (button module) and uses cell A1 as reference (i.e., 'LA' sheet uses Los Angeles)

- Click creates search in 'Internships' for rows with "A1-Approved" in column H (i.e. for LA again, it would be Los Angeles-Approved. This is so I can use it on every sheet in my workbook without creating separate modules)

- Creates a delimited comma list of all approved internships (column B of every approved row) in cell G6 of the city sheet

Thank you!

Hi

This code should bring back what you want. Just have the buttons call it.

Sub aaa()
  Dim ThisSH As Worksheet
  Set ThisSH = ActiveSheet
  
  srchstr = ThisSH.Range("A1") & "-Approved"
  holder = ""
  
  With Sheets("Internships")
    For Each ce In .Range(.Range("H3"), .Cells(Rows.Count, "H").End(xlUp))
      If ce = srchstr Then
        holder = holder & .Cells(ce.Row, 2) & ", "
      End If
    Next ce
  End With
  If Len(holder) > 2 Then holder = Left(holder, Len(holder) - 2)
  
  ThisSH.Range("G6").Value = holder
End Sub

rylo