Macro- Custom Filter Containing

**Stuart2** · 06-08-2009, 07:41 AM

Guys,

I'm trying to write a macro that will custom filter a column for cells containing the value in a cell, the macro I have so far is:

Sub Filter()

ActiveSheet.AutoFilterMode = off
LookupVal = Range("C3")
Range("A8").AutoFilter Field:=4, Criterial:=LookupVal

End Sub

However that only returns cells that are equal to C3, normally to do contains I would put "* *" around the value but then that removes the reference to cell C3, any ideas how to combine the two?

**antoka05** · 06-08-2009, 10:08 AM

Try with this code:

Code:

Sub Filter()
   ActiveSheet.AutoFilterMode = off
   LookupVal = Range("C3")
   Range("A8").AutoFilter Field:=4, Criterial:="=*" & LookupVal & "*"
End Sub

Regards,
Antonio