Macro para eliminar hojas

Hola, tengo una hoja llamada "LISTA", con una relación de datos en la columna A. Necesito una macro que cuando en la celda A2 haya un 0 o esté vacía, me elimine la hoja "2", lo mismo con A3, y así sucesivamente