Pesquisar na Comunidade

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