Making a list of column and row headers if the intersection cell has a Value > 0

[Nobody56]

I have a workbook with multiple sheets, with a few hundred rows and about 50 columns. I am trying to make a new spreadsheet with a list of the row and column headers if the intersecting cell has a value >0. Ideally one for each sheet on in a new workbook.


This into a list like

[TABLE="width: 576"]
<tbody>[TR]
[TD="width: 64"][/TD]
[TD="width: 64"]Cat[/TD]
[TD="width: 64"]Dog[/TD]
[TD="width: 64"]Chicken[/TD]
[TD="width: 64"]Mouse[/TD]
[TD="width: 64"][/TD]
[TD="width: 64"][/TD]
[TD="width: 64"]Letter[/TD]
[TD="width: 64"]Animal[/TD]
[/TR]
[TR]
[TD]A[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]0[/TD]
[TD][/TD]
[TD][/TD]
[TD]A[/TD]
[TD]Dog[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]0[/TD]
[TD][/TD]
[TD][/TD]
[TD]A[/TD]
[TD]Chicken[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[TD][/TD]
[TD]B[/TD]
[TD]Cat[/TD]
[/TR]
[TR]
[TD]D[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]6[/TD]
[TD][/TD]
[TD][/TD]
[TD]B[/TD]
[TD]Dog[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C[/TD]
[TD]Cat[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C[/TD]
[TD]Dog[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C[/TD]
[TD]Mouse[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]D[/TD]
[TD]Mouse[/TD]
[/TR]
</tbody>[/TABLE]

I think it will probably be easier to use a macro, which I am not as good with as formulas. Any help would be appreciated. Also, this is in excel 2013 and the data is in pivot tables.

Thanks!