Slet række hvis cellen i kollone n er tom

Private Sub sletRækker()
Dim række As String
    Application.ScreenUpdating = False
    For Each cc In Range("N3:N400").Cells
        If cc = Empty Then
            række = cc.row
            Rows(række & ":" & række).Select
            Selection.Delete
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Udført"
End Sub

Hej

Tak for svaret - det virker. Kan du fortælle mig, hvad screenupdating true og false gør?

VH Mads

Har fundet ud af det. Endnu engang tak for hjælpen.

MVH Mads

Fint - og selv tak