Voeg volgende 2 lijnen toe bij je code,bovenaan en onderaan je sub
Sub Gas_import()
Application.ScreenUpdating = False
'code
Application.ScreenUpdating = True
End Sub


@ Pagadder,

Screenupdating False zetten stond al in de code, niet als eerste instructie maar wel vóór enige werkbladactie, dus evenwaardig.
Op het einde terug True zetten is niet fout maar volstrekt overbodig.

@ Arnold,

Die flikkering heeft heel waarschijnlijk niets met het deleten te maken. Nu je de knop op 'Maandverbruik' hebt gezet, en op het einde van de procedure daar terug naartoe gaat, is tussentijds selecteren van 'Dagverbruik' niet meer nodig. Die flits kwam volgens mij dus door het selecteren van 'Maandverbruik'.
In de nieuwe bijlage heb ik er een "With Sheets("Dagverbruik")"-methode van gemaakt, m.a.w. er wordt enkel nog op 'Dagverbruik' geschreven zonder dat werkblad ooit te activeren. Hopelijk geeft dat beterschap!

(Tussen haakjes: ik had eerder verwacht dat je de Fluvius-bestanden liever zou archiveren dan deleten, verkeerd ingeschat weeral )

jaloers op Uw kennis , anderzijds ben ik blij dat ik deze niet heb , want mocht ik Uw kennis hebben ik denk dat ik dag en nacht zou "programmeren"

Er kan niet genoeg voor gewaarschuwd worden: het risico op verslaving is niet denkbeeldig

Groetjes,
Molly

(Tussen haakjes: ik had eerder verwacht dat je de Fluvius-bestanden liever zou archiveren dan deleten, verkeerd ingeschat weeral )

ik heb het aangepast , is het goed zo geschreven ? 
en de flikkering is verdwenen 
Grtjs,
Arnold

hey Molly,
ik had er in eerste instantie niet aan gedacht omdat ik gelijk wanneer de betreffende data kan downloaden , ik kan gewoon de begindatum en einddatum ( en jaartal) ingeven , dus ik kan in de toekomst altijd oude data terug opvragen...
maar nu ik kan ik dus kiezen.
thanks voor alle hulp  .
Grtjs,
Arnold.

Zoek eens op de functie ZELFDE. DAG