How to use a cell value as a criteria (*contains*) in autofilter?

[Ashish.0755]

Please go through the code and help me in using CONTAINS option :
(exact match option for filter works fine but not "contains")

Dim r As String
Range("B2").Select
Selection.Copy
r = Range("B2").Value
ActiveSheet.Range("$A$1:$B$80000").AutoFilter Field:=1, Criteria1:=*r*, Operator:=xlOr, Criteria2:="=*RC=*"

Without the astric in criteria1 runs fine but that filters for an exact match and I want the contains filtering.

Thanks in Advance!!!
Regards,
Ashish Shukla

[AlphaFrog]

Please Login or Register  to view this content.

[Ashish.0755]

Thanks a lot SIR!!!!

YOU ARE AWESOME