Löschen #NUM Fehler Makro von Arbeitsblatt zu Arbeitsmappe

Question

Ich möchte das unten Makro über meine gesamte Arbeitsmappe von 117 Blatt ausführen. Ich habe ein paar verschiedene Variationen von Dingen ausprobiert, die ich mit der Forschung gefunden habe, aber ohne Erfolg. Ich bin neuer zu VBA, also vermisse ich wahrscheinlich nur etwas Kleines.

Sub DelNUM() 
Dim LR As Long, i As Long 
LR = Range("B" & Rows.Count).End(xlUp).Row 
For i = LR To 1 Step -1 
    If IsError(Range("B" & i)) Then Rows(i).Delete 
Next i 

End Sub 

Irgendwelche Vorschläge würden geschätzt.

Danke

Answer 1

Sub DelNUM() 
    Dim LR As Long 
    Dim i As Long 
    Dim sh As Worksheet 

    For Each sh In Worksheets 
    LR = sh.Range("B" & sh.Rows.Count).End(xlUp).Row 
    For i = LR To 1 Step -1 
     If IsError(sh.Range("B" & i)) Then sh.Rows(i).Delete 
    Next i 
    Next 
End Sub