Er bevinden zich al gegevens in "naam", wilt u deze vervangen?

[Samsung6713]

Goedemorgen,
ik heb de volgende code

Private Sub Worksheet_Activate()
    ActiveWorkbook.RefreshAll
End Sub

om de draaitabellen te refreshen.
Nu krijg ik iedere keer als ik deze word uitgevoerd de melding: Er bevinden zich al gegevens in "tabbladnaam", wilt u deze vervangen?

Waarom krijg ik deze melding, en hoe kan ik het voorkomen?

 

[OctaFish]

Die kun je met DisplayAlerts = False uitzetten. Wel na de actie weer aanzetten .

 

[Samsung6713]

Private Sub Worksheet_Activate()
    DisplayAlerts = False
    ActiveWorkbook.RefreshAll
    DisplayAlerts = True
    
End Sub

Zo komt de melding er toch doorheen

 

[edmoor]

Dat moet zijn:
Application.DisplayAlerts

 

[Samsung6713]

Bedankt!