Intersect problemer

Frit fra leveren: som kom fra tg4600, men jeg var lidt hurtigt med svar OK

for each r in intersect("A:A"), activesheet.usedrange)
  if IsError(cells(r,1)) then
    cells(r,1).entirerow.delete
    r=r-1
  endif
next R



Som jeg har omskrevet til
  For Each r In Intersect(Range("A:A"), ActiveSheet.UsedRange)
  If IsError(Cells(r, 1)) Then
    Cells(r, 1).EntireRow.Delete
    r = r - 1
  End If
Next r

Men i celle A1 står der "produktion", så den fejler ud for linje 2 i koden med
Run-time error 13
Type mismatch

Er det ikke lige meget hvad jeg skriver ved Error, f.eks. hus
IsError

cells(r.row,1).entirerow.delete

eller r.entirerow.delete

Dim C as range
for each r in intersect("A:A"), activesheet.usedrange)
  if IsError(c) then
  r.entirerow.delete
  endif
next R

Dim R as range
for each R in intersect("A:A"), activesheet.usedrange)
  if IsError(R) then
  r.entirerow.delete
  endif
next R

Hej

Mangler lige at få at vide om jeg kunne skrive andet som f.eks

If IsHus(Cells(r, 1)) Then ?

Nu ved jeg ikke hvad IsHus er, men da R er range, altså det samme som en celle, er det indholdet af cellen du får i Cells(r, 1)),så hvis der står 1234 i cellen, som R repræsenterer , så er det det samme som Cells(1234, 1))som er = A1234

Sletter hele rækken hvis der er fejl i kolonne A - ret Ark1 til aktuel

Sub SletFejl()
Sheets("Ark1").Columns("A:A").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
End Sub

Plz svar excelent

svar