how to display header value

[divya g]

I want to return the column headings for each x in a record (row) I can find the first using index and match but not subsequent column headings.

[TABLE="width: 500"]
<tbody>[TR]
[TD]ad[/TD]
[TD]ae[/TD]
[TD]af[/TD]
[TD]ag[/TD]
[TD]ah[/TD]
[/TR]
[TR]
[TD]edu[/TD]
[TD]charity[/TD]
[TD]aa[/TD]
[TD]data[/TD]
[TD]frce[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]x[/TD]
[TD][/TD]
[TD]x[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Tim_Excel_]

VBA or formula?

A formula would simply be (=If(A3="x",A$1,""), which you'd paste in A3 and then drag to the following columns

For VBA

For each cell in ThisWorkbook.Sheets(1).Range("A3:E3")

    If cell.Value = "x" Then MsgBox "Your header in " & cell.Address & " is " & ThisWorkbook.Sheets(1).Cells(1, cell.Column).Value

Next cell