How to exclude 0 from Product() ??

[tangomj]

A1=10
B1=0
C1=8
D1=0
E1=5

=Product(A1:E1)
= 400 ..and NOT 0

How can I exclude any 0's from the series and multiply with what ever cell value remains? Any one or combination of cells may be 0's at anytime. Need the product of all remaining values. Only when all the cells are 0 will the result be 0, otherwise a product result. Thx