Um exemplo seria:

    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields( _
        Lugar da variável)
        .Orientation = xlPageField
        .Position = 1
    End With

E o outro

    ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields( _
        Lugar da variável).Orientation = xlHidden

Mas os não dão certos.

Boa tarde Rogerio123,

Disponibilize seu arquivo (não precisa ser com os dados originais), assim fica mais fácil ajudar.

att,

Boa noite,

coloquei em anexo o exemplo, onde na aba tabela temos 3 tipos de trabalho sendo eles: Abrir, Fechar e encaixar. Cada Trabalho pode conter até 4 executante, onde logo após cada funcionário tem sua coluna na tabela validando os dados, que quando for conter ele/ela em qualquer célula aponte com o numero 1, se não 0.

Preciso de uma macro que quando altere a lista de validação de dados com o nome do funcionário na aba gráfico célula B3, automaticamente altere a tabela dinâmica que está localizada na aba gráfico também.

Att,

Boa tarde,

Veja se é oque deseja, ao mudar a célula B3 muda o filtro da tabela dinâmica.

O código está dentro da planilha2 (Gráfico).

Brunoxro,

Isso mesmo, valeu.