VBA - slet rækker

Noget i stil med dette vil kunne bruges. I eksemplet bliver alle rækker hvor værdien ikke er 3 slettet.

Sub Slet()
Dim LastRow, R As Long
LastRow = Range("C1").CurrentRegion.Rows.Count
For R = LastRow To 1 Step -1
If Cells(R, 3) <> 3 Then Cells(R, 3).EntireRow.Delete
Next
End Sub

Det er helt perfekt. Tænkte nok det var "simpelt" men kunne bare ikke se "VBA programmeringen for bare kode".