Macro til sletning af rækker

Den burde kunne gøre det:

Sub Slet()

Dim slut, i As Integer

slut = Range("B65000").End(xlUp).Row

For i = slut To 1 Step -1
Cells(i, 2).Select
    If ActiveCell.Value = 1 Then
            ActiveCell.EntireRow.Delete shift:=xlUp
    End If
Next

End Sub

kan du ikke lave den, så den ikke opdatere skærmen hele tiden.
Det tager lige lang tid, når den skal slette 2500 ud af 3000 rækker

ellers virker den

Lige efter Sub Slet() indsætter du

Application.Screenupdating = False

og lige inden End Sub
Application.Screenupdating = True

tak.

venligst lig et svar så jeg kan afslutte den.

Et svar.