Hi Ronnie,

I agree with Don, it is much easier to offer suggestions when we can
consider what you already have. However, in saying that, from what you
have stated, I'd suggest incorporating the filtering action into the
existing macro & entering the value using an input box eg:

Dim StringToFind As String
StringToFind = InputBox("Please enter your string to find", "String to
Find")

'To end sub if "cancel" was pressed sourced from _
http://www.excelforum.com/showthread...vbcancel+input
& http://vb.mvps.org/tips/varptr.asp
If StrPtr(StringToFind) = 0 Then
MsgBox "no string to find entered"
GoTo ExitSub
Else
End If

Range("a1", ActiveCell.SpecialCells(xlLastCell)).AutoFilter Field:=1,
_
Criteria1:="=*" & StringToFind & "*"

Have a play with this & see if it works for you. To set the column for
filtering, change "Field:=1," to another #. NB, 1 is not necessarily
col A, it is the first column with a filter on it.
If you would like a complete macro (which can be linked to a short cut
key)that will do things like filter for contents of active cell/
blanks/ your input etc, let me know & I can post my toy!
Or for something more bulletproof but potentially slower try searching
for Ron DeBruin's EasyFilter addin.

hth
Rob Brockett
NZ
Always learning & the best way to learn is to experience...


--
broro183
------------------------------------------------------------------------
broro183's Profile: http://www.excelforum.com/member.php...o&userid=30068
View this thread: http://www.excelforum.com/showthread...hreadid=530479