VBA denkfout?

[brandernl]

Ik wil dat een macro "kijkt" in een bepaalde cel en als de waarde nul is de macro afbreekt en uiteraard bij een andere waarde de macroverder uitvoert.
Maar nu breekt hij bij elke waarde in die cel de macro af.
Wat doe ik verkeerd?
Bernard

Sub DeHartkamp()
Dim pt As PivotTable
Application.ScreenUpdating = False
If Worksheets("data").Range("AG1").Value = 0 Then _
MsgBox "Er zijn geen gegevens van De Hartkamp"
Exit Sub
For Each pt In ActiveSheet.PivotTables
pt.PivotFields("locatie").CurrentPage = "De Hartkamp"
Next
End Sub

 

[Wigi]

Bernard, gebruik dit:

Sub DeHartkamp()
    Dim pt As PivotTable
    Application.ScreenUpdating = False
    
    If Worksheets("data").Range("AG1").Value = 0 Then
        MsgBox "Er zijn geen gegevens van De Hartkamp"
        Exit Sub
    Else
        For Each pt In ActiveSheet.PivotTables
            pt.PivotFields("locatie").CurrentPage = "De Hartkamp"
        Next
    End If
End Sub

Wigi

 

[brandernl]

Dat was 'em
Veel dank