Hi Damon,

Try replacing:

If ActiveCell.Value = "#N/A" Then

with

If ActiveCell.Text = "#N/A" Then


---
Regards,
Norman


"Damon" wrote in message
...
Can anybody please tell me why I am getting a type mismatch error on the
first line of this seemimgly simple bit of code? (i am using excell 2000)


Sub NAdelete()

If ActiveCell.Value = "#N/A" Then
ActiveCell.Offset(0, 1).Activate
ActiveCell.Offset(0, -1).EntireRow.Delete
Else
ActiveCell.Offset(0, 1).Activate
End If

End Sub

Thank you in advance!