Hello,

I have a list with an autolfilter. I would like to know what I need to add
to the following code in order for the macro to print-out a list for every
different criterias in the field 4.
I want the macro to run only for the criterias ( profesional position like
"A.D.O.S.M.") available in the field 4 autofilter dropdown box. The list of
criterias available in this dropdown box changes every week due to the first
autofilter selection (Field 16).

Any help would be much appreciated.

Thank you

Sub test1
'
'test1 Macro
'Macro recorded 24/03/2005 by PAUL
'
Selection.AutoFilter Field:=16, Criteria1:="<"
Selection.Autofilter Field:=4, Criteria1:="A.D.0.S.M."
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub