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).A utoFilter
Field:=ActiveCell.Column, Criteria1:="=5"

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