Reverse Index Match return names from table data

Hi,
Hoping someone can help,
I have a table with names in the left column and columns of the months
the table is populated with data (Ys) (this represents if someone did something in the month)


I want to enter a month in a cell (G1 in example)
An have alist created of the names that correspond to having a "Y" in the column matching the month.

For example if I entered Jan I want to return a list of the names that have a "Y" in the Jan column.

I hope this is clear.
EDIT: to clarify my request, I am hoping for a none VBA solution.
also hoping to use the solution in another worksheet where the number of columns may be very large.

please let me know if more info is needed.
I searched but could not find anything, I may not be seaching the correct terms?)
Capture.JPG
Regards,
Brad

Here is some Air Code (untested as you did not supply a worksheet to test).

Option Explicit

Sub Brad()
    Dim i As Long, lr As Long, lrg As Long, mth As String
    Dim col As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    mth = Range("G1").Text
    Application.ScreenUpdating = False
    If mth = "Jan" Then col = 2
    If mth = "Feb" Then col = 3
    If mth = "March" Then col = 4
    If mth = "April" Then col = 5
    For i = 6 To lr
        lrg = Range("G" & Rows.Count).End(xlUp).Row
        If Cells(i, col) = "Y" Then
            Range("A" & i).Copy Range("G" & lrg + 1)
        End If
    Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "Completed"
End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button

I think that it is great to have both a VBA and Formula solution so that you can compare speed, versatility etc.
This proposed solution is based on the following array entered formula* as applied to the screen shot in post #1:

Formula:

=IFERROR(INDEX(A$3:A$9,SMALL(IF(B$2:E$2=G$1,IF(B$3:E$9="y",ROW($3:$9)-2)),ROW(1:1))),"")

*Array entered formulas are activated by pressing CTRL+SHIFT+ENTER to activate the array, not just ENTER. You will know the array is active when you see curly braces { } appear around your formula. If you do not CTRL+SHIFT+ENTER you will get an error or a clearly incorrect answer.
Let us know if you have any questions.

You're Welcome and glad that you were able to modify the formula to fit your needs. Thank You for the feedback and for marking the thread as 'Solved'. I hope that you have a blessed day.