VBA CODE FOR Filtering

[excelindianfanclub]

S.No</SPAN>	Job type</SPAN>	Problem</SPAN>
	BD</SPAN>
	B.D</SPAN>
	B/D</SPAN>
	B_D</SPAN>
	B D</SPAN>
	PJ</SPAN>
	P.J</SPAN>
	P/J</SPAN>
	P_J</SPAN>
	P J</SPAN>
	PM</SPAN>
	P.M</SPAN>
	P/M</SPAN>
	P_M</SPAN>
	BDS BD/S BD.S </SPAN>

<TBODY>
</TBODY><COLGROUP><COL span=3></COLGROUP>

in Job Type Column,the Job type is mentioned in different text for example BD is mentioned as BD,B.D,B/D,B_D,B<space>D.. so i need the macro button to filter all of them in one click.This applicable for muliselecion filtering also.when i click the macro button,it should filter all the Text contains BD,PJ,PM & BDS.

 

[Arcticwarrio]

Selection.AutoFilter Field:=1, Criteria1:="=B*", Operator:=xlAnd, _
Criteria2:="=*D"

ETC

 

[excelindianfanclub]

Dear Arctic,
thanks for reply
i modified the code to

AutoFilter Field:=1, Criteria1:="=*B*D", Operator:=xlFilterValues.

it works.
but i need a macro code to all the different Job types which are in various Text representation, to get filtered by single click.there are 15 job types
in those,i need to filter this BD,PJ,PM,BDS

 

[excelindianfanclub]

continued
in those,i need to filter this BD,PJ,PM,BDS & ADR
which are in any Text representation
say
ADR as A.D.R
PM as P_M

 

[excelindianfanclub]

Selection.AutoFilter Field:=1, Criteria1:="=B*", Operator:=xlAnd, _
Criteria2:="=*D"

ETC

I modified the code for two criteria

Selection.AutoFilter Field:=2, Criteria1:="=A*D*R", _
Operator:=xlOr, Criteria2:="=B*D*S"

this works.but more than 2 criteria,this code format cannot be used.Please give me an idea