|
Posted to microsoft.public.excel.programming
|
|
|
Remove all rows which do Not contain a particular word
Thanks Dav and Dave
"Dav" wrote:
To use Dave's Idea the following should work, much simpler than what I
was thinking of as I do not really use filter, perhaps I should look
into them a bit more! To use filters, the top row of your sheet has to
be a heading row, so the data starts in row 2
Sub Macro4()
'
' Macro4 Macro
'
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<*high*",
Operator:=xlAnd
Range("A2:a65533").Select
Selection.EntireRow.Delete
Selection.AutoFilter
Range("A1").Select
End Sub
Regards
Dav
--
Dav
------------------------------------------------------------------------
Dav's Profile: http://www.excelforum.com/member.php...o&userid=27107
View this thread: http://www.excelforum.com/showthread...hreadid=560979
|