Automatisk svar på popup

Hej

Jeg håber, at I kan hjælpe mig med denne case.


Jeg danner et data histogram med følgende kode, der virker:

Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$A$2:$A$5000") _
        , ActiveSheet.Range("$E$1:$F$12"), ActiveSheet.Range("$C$2:$C$11"), False, _
        False, False, False


I forbindelse med, at denne kodestump kører, får jeg følgende popup:
'Histogram - Output range will overwrite existing data. Press OK to overwrite.'

Svarmulighederne er: 'OK'  'Cancel'  'Help'

Svaret er hver gang 'OK'. Koden skal køre på mange sheets.

Jeg har prøvet med følgende kodestumper før og efter ovenstående histogram-kode:

Application.DisplayAlerts = False
eller...
Application.SendKeys "{~}", True

Men uanset hvad, så får jeg fortsat popup'en, som jeg skal svare OK på.

Har I et forslag til, hvordan jeg får en kode til at trykke 'OK' for mig?

På forhånd mange tak for hjælpen.

Venlig hilsen

Arne