Excel Macro VB to return Column name if any cell has anything but Zero

[sporty9xterra]

I need help creating a Macro script to return the individual column values in another tab if there is anything listed besides a 0. Can be a negative or positive. I'm just not sure how to create a list so I can automate this process.

Currently I have to flip through each tab and write down the columns then write them in another column so that macro will read only those columns... its a pain.

[smartchap]

I think question is not clear. Please explain it exactly what do you want to do.