Bem Pessoal, talvez não seja nenhuma novidade para muitos, mas pra mim foi excelente..

Bem Gravei uma macro para fazer um filtro por Códigos de Produtos, porem trazia o criterio do código que era gravado.

Dai atribui este criterio a uma range, onde através de uma combo box, listava os valores por um procv. ai foi batata..

Sub FILTRA_PRODUTOS()

Dim CÓDIGO As String

CÓDIGO = Range("AF1").Value

Sheets("NOME DA PLAN").Select
Rows("2:500").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=CÓDIGO, Operator:=xlAnd
Range("A1").Select

End Sub