Prezados,

Há uns dias pedi aqui ajuda pra fazer um codigo que ocultasse linhas, e desde então estou usando o seguinte macro:

Sub OcultarLinhas02
'
' OcultarLinhas02 Macro
'Macro criada por Joe em 14/09/2017
'Contato para freelancer: (61) ***
    For i = 1 To 800
        If ActiveSheet.Cells(i, 17).Text = 0 Then
            ActiveSheet.Rows(i).EntireRow.Hidden = True
        End If
    Next
End Sub

Ocorre que a coluna I (letra i) é uma formula e eventualmente aparece resultado "#REF!" ou "#N/D".
Então eu gostaria de adicionar essas duas possibilidades como termos que também ocultem linhas, além do "0", como consta no código acima.

Tentei fazer uma alteração no código do Joe, mas da um erro na hora de salvar a tabela, então devo ter feito algo errado.

Alguém poderia alterar o código pra mim? eu tentei isso:

Sub OcultarLinhas03teste()
'
'Macro criada por Joe em 14/09/2017
'Contato para freelancer: (61) ***
    For i = 1 To 800
        If ActiveSheet.Cells(i, 17).Text = 0 Then
            ActiveSheet.Rows(i).EntireRow.Hidden = True
        End If
    Next
    For i = 1 To 800
        If ActiveSheet.Cells(i, 17).Text = "#REF!" Then
            ActiveSheet.Rows(i).EntireRow.Hidden = True
        End If
    Next
    For i = 1 To 800
        If ActiveSheet.Cells(i, 17).Text = "#N/D" Then
            ActiveSheet.Rows(i).EntireRow.Hidden = True
        End If
    Next
End Sub

Mas não deu, devo ter feito algo errado mas não entendo muito... podem dar uma luz?