On Jun 3, 3:42*am, anvarfromkz wrote:
Hello, Friends
*1.
*Application.Dialogs(......................).Show

*I need Custom Filter Dialog, but in VBA it have not, if found only
*this(xlDialogFilterAdvanced, xlDialogFilter) Is someone know how can i do
this?

*2.
*ActiveSheet.Range(ActiveSheet.UsedRange.Address). AutoFilter
*Field:=ActiveCell.Column, Criteria1:="=5"

*I need to know how to get not absolute position of Field:=(ActiveCell.Column)

Oz has an example of using variables for the filter criteria which
might help.
http://www.ozgrid.com/forum/showthread.php?t=50818