Macro com validação de dados

Question

Pessoal, tenho uma macro que gostaria que fosse executada quando a validação de dados na célula H6:I6 fosse igual a "Veículos".

Quando essa combinação acontecer quero executar o seguinte código:

Sheets("TABELAS CARGA").Select

    ActiveSheet.PivotTables("Tabela dinâmica21").PivotFields("Coluna1"). _

        CurrentPage = "(All)"

    ActiveSheet.PivotTables("Tabela dinâmica21").PivotFields("Coluna1"). _

        CurrentPage = "(All)"

    With ActiveSheet.PivotTables("Tabela dinâmica21").PivotFields("Coluna1")

        .PivotItems("ESTATICO").Visible = False

    End With

    ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Coluna1"). _

        ClearAllFilters

    ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Coluna1").CurrentPage _

        = "DINAMICO"

    Range("AD3").Select

    ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("Coluna1"). _

        ClearAllFilters

    ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("Coluna1").CurrentPage _

        = "DINAMICO"

    Range("U11").Select

    Sheets("RELATÓRIO").Select

    Range("H6:I6").Select

Answer 1

Segue imagem:

Answer 2

Rafael, 

Agora quando executo o código aparece uma nova janela para criar uma macro, conforme imagem abaixo:

Answer 3

Olá Leandro!

Creio que o evento change da planilha deve atender a sua necessidade. O código deve ser inserido no módulo da planilha. Veja um modelo para rodar o código conforme valor alterado na célula H6:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Excel.Range("H6")) Is Nothing Then

If UCase(Excel.Range("H6").Value) = "VEÍCULOS" Then

'... seu código

End If

End If

End Sub