Filtrar mês na Tabdin com base numa célula (variável)

[wmds007]

Olá Pessoal, bom dia!

Sou novo no fórum e estou iniciando no mundo VBA. rs

Vejam se podem me ajudar:

Preciso que minha macro tire todos os filtros de data e adicione o filtro conforme minha célula M1 da planilha. Desta forma, quando eu tiver na célula especificada e digitar Jun, ele irá filtrar o mês de Junho na minha dinâmica. Quando a macro chega na ultima linha, ela não entente que PivotItems(mes).Visible = True é minha variável da célula M1 da minha planilha. Espero ter sido claro...Obrigado !!  =)

 

Sub Macro3()
'
' Macro3 Macro
'
    Dim mes As String
    
    
    mes = Range("M1").Activate
    

    With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("DATA_MOV")
        .ClearAllFilters
        .PivotItems("Jan").Visible = False
        .PivotItems("Feb").Visible = False
        .PivotItems("Mar").Visible = False
        .PivotItems("Apr").Visible = False
        .PivotItems("May").Visible = False
        .PivotItems("Jun").Visible = False
        .PivotItems("Jul").Visible = False
        .PivotItems("Aug").Visible = False
        .PivotItems("Sep").Visible = False
        .PivotItems("Oct").Visible = False
        .PivotItems("Nov").Visible = False
        .PivotItems("Dec").Visible = False
        .PivotItems(mes).Visible = True
        
        
    End With
End Sub

 

[Nelson S]

Depois da linha: mes = Range("M1").Activate

coloque: msgbox mes

e transcreva o que diz a mensagem que será dada.