Delete Tabs

I need a function for a macro that allows me to delete all tabs that have a
$0.00 value in the cell C2? What code can I use to do this. I created a
button, is there a better option (such as a way to generate it on open
spreadsheet) ?