Filtro en Macro

[fabianhtml]

Filtro en Macro (Tabla Dinámica)

Estimados,

Tengo parte una programación en la que necesito su ayuda.

----

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _

Worksheets("Hoja1") _

.Range("A1:AF" & Sheets("Hoja1").Range("AF1").End(xlDown).Row).Address(External:=True)) _

.CreatePivotTable TableDestination:="", TableName:= _

"Tabla dinámica1", DefaultVersion:=xlPivotTableVersion10

With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Incoterm")

.Orientation = xlPageField

.Position = 1

End With

ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Incoterm").CurrentPage _

= "(All)"

With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Incoterm")

.PivotItems("C I F").Visible = False

.PivotItems("C. Y F.").Visible = False

End With

-------

El problema es que si por ejemplo "C I F" no está dentro de los datos, la macro al no encontrar esto se detiene.

Quizá puedo poner una condición "ó"?

Dejo archivo de ejmeplo

(debo agregar más datos para eliminarlos en el filtro)

[ATTACH]37365.vB[/ATTACH]

Libro2.rar