Macro para excel en VB

Buen día, tengo un problema con una macro que corro en Excel 2010 para actualizar una tabla dinámica y que me seleccione el campo "(todas)" de la tabla. Estoy utilizando la siguiente orden pero me arroja error.

H_Envio.PivotTables("TaBla_Envio").PivotFields("Día").ClearAllFilters H_Envio.PivotTables("TaBla_Envio").PivotFields("Canal").ClearAllFilters
H_Envio.PivotTables("TaBla_Envio").PivotFields("Día").CurrentPage = _ Range("E3").Value H_Envio.PivotTables("TaBla_Envio").PivotFields("Canal").CurrentPage = _ "(TODAS)"