labels in userform naar 0 zetten.

[Hampert]

Hallo forummers,

Ik had graag wat hulp met mijn userform.
In dit form heb een aantal labels welke ik voor het afsluiten van het workbook op "0" gezet wil hebben.
Nu had ik gedacht dit met de volgende code te doen maar dit werkt niet.
Ik heb de code in een sub Workbook_beforeclose() staan.

       With userform2.shapes
                for i = 1 to aantal teams

                 .Range(Array("Totaalpunten_" & i)).caption = "0"

                next i
        end with

Wie kan mij aan een werkende methode helpen???

 

[Hampert]

Oplossing gevonden in het initialiseren van het form.
dus vraagstuk is opgelost.