run time error 13; Type mismatch

[mrt]

Selamlar;

L sutununda #n/a olan satırları silmek için;

""Sub secim_harici_sil()

Application.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For z = t To 1 Step -1
If Cells(z, 12) = "#N/A" Then
Rows(z).Delete Shift:=xlUp
End If
Next z
Application.ScreenUpdating = True

End Sub ""

makroyu çalıştırdığımda " If Cells(z, 12) = "#N/A" Then " sarı olarak işaretlenmekte ve hata mesajı vermektedir.

Sorunu nasıl çözebilirim.

Saygılarımla,

 

[Haluk]

    If WorksheetFunction.IsNA(Cells(z, 12)) Then
        Rows(z).Delete Shift:=xlUp
    End If