How to delete a row If cell in range contains specific text

Requirement:

In range A6:A502 the user needs to delete row(s) if that range contains "Thumbs.db"

The Code the user has below does the job, but takes a long time to go through each cell in range and triggers other code due to Selection Change, which the user does not want happening, so needs a better solution.

Code:

Sub RemoveLines()
Dim Counter As Long
' Start at
Range("A6").Select
For Counter = 1 To 505
If ActiveCell.Value Like "Thumbs.db" Then
ActiveCell.EntireRow.Delete ' Delete Row
Else
ActiveCell.Offset(1, 0).Select  ' Move down a row
End If
Next Counter
End Sub

Solution:

Code:

Sub deleteRows()
   With Range("A6:A502")
     .Replace "Thumbs.db", "#N/A", xlWhole
     .SpecialCells(xlConstants, xlErrors).EntireRow.Delete
   End With
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Mumps.