Finding #N/A Values And Delet Row Macro

pick a column to test in, this column should be one that will have #N/A error displayed in it and that 'goes as far down the sheet as you need to examine for the #N/A conditions although not all entries have to be #N/A just something in them to the end Using column E for this example as E was where I put a VLOOKUP() formula to test/generate #N/A errors. Const testColumn = "E" change as required
'no other changes to make

Sub DeleteNARows()
Dim naRowList As String
Dim anyRange As Range
Dim anyCellEntry As Range
Set anyRange = ActiveSheet.Range(testColumn & "1:" & _
ActiveSheet.Range(testColumn & _
Rows.Count).End(xlUp).Address)
For Each anyCellEntry In anyRange
If anyCellEntry.Text = "#N/A" Then
naRowList = naRowList & anyCellEntry.Row & _....................