Delete rows based on certain criteria

[HotLanta]

Hi,

So in column A I have a header in A1 and then data from A2 through A1000.
Is it possible to delete every row from A2 through A1000 where the name in A does not contain the letter "H"?

For example I have:

IN123G1L
IN123H1L
IN123S1L

The items that contain "H" I want to keep. In the example above I want to eliminate IN123G1L and IN123S1L.

Thank you in advance!

 

[Fluff]

How about

Sub HotLanta()
   With ActiveSheet
      .Range("A1").AutoFilter 1, "<>*H*"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub

 

[HotLanta]

Perfect! Thank you Fluff.

 

[Fluff]

You're welcome & thanks for the feedback.