blatt löschen wenn zelle leer

ich habe folgendes sub (auszug)

For Each blatt In ActiveWorkbook.Worksheets
wert = blatt.[B13]
If wert = 0 Then ActiveWorkbook.ActiveSheet.Delete
Next blatt

ich will das blatt löschen wo der zellwert 0 ist. aber es sieht so aus als würde er mir in der prozedur die blätter die er durch geht nicht aktivieren.

wie kann ich nun genau dieses blatt löschen wenn der wert 0 ist?

merci

henning