boucle sur onglet lente

Bonjour à tous,

Je souhaite masquer tous les onglets de mon classeur en mode xlveryhidden lors de la fermeture de mon classeur(dont le nombre est variable - environ 60 onglets) mon code fonctionne mais cela prend un certain temps et j'aimerais savoir si il existe une possibilité pour en accélérer l'exécution.

Voici mon code

Private sub workbook_beforeclose (cancel as boolean)
application.screenupdating = false
dim onglet as worksheet
for each onglet in worksheets
if onglet.name <> "titi" then
onglet.visible = xlveryhidden
end if
next
end sub

Merci à tous,

Bonne soirée !