Application.ScreenUpdating moet je dat herhalen

[HWV]

Hoi allemaal,

Ik ben een code aanhet schrijven voor ophalen van bestanden uit een txt veld.
De code heb ik in stukjes gehakt om er overzicht over te houden.
Deze roep deze aan met Call.

Nu ziet het er zo uit

Sub OphalenBestand ()

     Application.ScreenUpdating = False

Call naam1
Call naam2

     Application.ScreenUpdating = True

sub naam1 ()

     Application.ScreenUpdating = False

"Code"

     Application.ScreenUpdating = True

End Sub

sub naam2 ()

     Application.ScreenUpdating = False

"Code"

     Application.ScreenUpdating = True

End Sub

Is het nodig om Application.ScreenUpdating te herhalen ?

Groet HWV

 

[snb]

Nee, en ook call is overbodig.

Sub OphalenBestand ()
  Application.ScreenUpdating = False
  naam1
  naam2
  Application.ScreenUpdating = True
End sub

sub naam1 ()
   'Code
End Sub

sub naam2 ()
  'Code
End Sub

 

[HWV]

Weer wat geleerd

Bedankt, op deze manier wordt de code ook al een stuk kroter en overzichtelijker

Groet HWV :thumb: