How can I make this Loop faster, screen updating is off
Turn Calaculation off as well?
--
__________________________________
HTH
Bob
wrote in message
...
LastRow = Range("F" & Rows.Count).End(xlUp).Row
For r = 2 To LastRow Step 1 ' Headings in row 1
If Cells(r, "F").Value = "Closed" Then
Rows(r).Copy Destination:=Sheets _
("Interim").Range("A2").Offset(off, 0)
Rows(r).Delete
off = off + 1
End If
Next
Thanks
|