Complex data reorganization question

(I apologize if I'm not in the right place on the forum, but this seemed to be a good place to ask this.)

I have a 30x30 table where an 'x' has been put in a fair number of the cells. I need to end up with the column headers of each cell with an 'x' next to the row leader of each cell with an 'x', but on separate lines.

For instance, on row 3, cells 3B, 3C and 3F have x's in them. The the column headers of columns B, C and F would end up on separate lines next to the row leader of row 3. The finished product for row 3 would look like:

3 leader | B header
3 leader | C header
3 leader | F header

I've attached a small sample spreadsheet for (hopefully) further clarity re the problem.

Thanks in advance for any help/guidance you can give me!

-sd

This solution uses a helper column immediately to the right of the table (Lookup Array), a standard formula referring to the Lookup Array for generating the extracted row headers and an array formula for extracting the column headers.

Beau Nydal

Marvin: One small problem with this, although it's definitely right there. I get a Method 'Range' of object '_Global' failed message when I run this on my actual spreadsheet. The debugger says the issue is with this line:
TopRow = Range("XRange").Row

Got it! And it works! And....<drum roll> this will save me HOURS of time this weekend and in the future! Again, thanks!!!