Excel 2010 error '1004' tiempo de ejecución: No se puede asignar la propiedad de la clase PivotField

Estoy haciendo una macro para que después de crear una Tabla, mediante una consulta SQL, genere una Tabla dinámica. Ya lo logré, pero al momento de querer cambiar el formato de número a los Datos arroja el error, sera necesario que publique todo el código o les basta con la línea que manda el error:

Este lo modifique de la Grabadora de Macros

ActiveSheet.PivotTables(HojaTD).PivotFields("Pzas").NumberFormat = "#,##0_ ;[Rojo]-#,##0 "

Pero este lo genero la grabadora de Macros, que intente que funcionará en vano:

With ActiveSheet.PivotTables("ConsultaTD").PivotFields("Pzas")
.NumberFormat = "#,##0_ ;[Rojo]-#,##0 "
End With

La variable "HojaTD" contiene el nombre de "ConsultaTD"; que es el nombre de la Tabla Dinámica y "Pzas" es el nombre del campo numérico.