Veja se é isto, lembrando que irá substituir os valores da coluna B :

    Sub Situacao()
        
        Dim srg As Range
        Dim sValor
        Dim sUltLin As Long
        
        sUltLin = Sheets("Plan1").Range("D" & Rows.Count).End(xlUp).Row
        
        Set srg = Range("D2" & ":" & "D" & sUltLin)

        For Each x In srg
            sValor = x
            
            If sValor = 0 Then
                x.Offset(0, -2).Value = "Fechado"
            
            Else
            x.Offset(0, -2).Value = "Aberto"
        
            End If
        Next

    End Sub

[]s

Boa Tarde Mauro Coutinho.

Agradeço a ajuda.
Testei e está quase do jeito que preciso.
Na planilha original existe varios resultados, não só aberto igual na planilha modelo que eu postei.
Percebi que o seu código altera para fechado a coluna B quando na coluna D for Zero, conforme eu solicitei.
Porém se for diferente de zero ela altera para Aberto, mas na verdade necessito que seja mantido o resultado original que esta na célula só alterar para fechado quando na coluna D for igual a zero.

Abraços.

Fabiosp

Como citou que as celulas são alteradas todos os dias, entendi que teria de colocar o "Aberto" novamente se por um acaso for alterado o valor da coluna D de uma celula que era Fechado e neste caso irá permanecer Fechado mas não com o valor "0".

Mas a alteração é bem simples, é só eliminar as linhas abaixo da rotina :

 Else
            x.Offset(0, -2).Value = "Aberto"

[]s

Bom dia Mauro,
Obrigado por sua costumeira ajuda.
Nossa, simples mesmo ne.
No desespero nem pensei nisso.
Agora está tudo certo.

Abraços

Fabio sp