Label in formulier naam geven

[Roma]

Beste,
Ik heb een formulier waar ik de laatste labels een naam wil geven van een cel
Ik heb hiervoor de volgende code maar het werkt niet.
Weet iemand wat ik fout doe.

Private Sub Test_Initialize()
Me.Label20.Caption = Sheets("menu").Range("a1").Value
Me.Label21.Caption = Sheets("menu").Range("a2").Value
Me.Label22.Caption = Sheets("menu").Range("a3").Value
Me.Label23.Caption = Sheets("menu").Range("a4").Value
Me.Label24.Caption = Sheets("menu").Range("a5").Value
End Sub

 

[OctaFish]

Je code doet het prima. Kort en goed: maak een voorbeeldje

 

[Roma]

Hierbij een voorbeeld.

Het gaat in het formulier optie 1 tm5
Labelnrs. 20,21,22,23 en 24

alvast bedankt

 

[edmoor]

Je hebt die code achter Blad1 (Menu) gezet in plaats van in het formulier.

 

[Roma]

Dat had ik al geprobeerd maar dat lukt ook niet.

 

[edmoor]

Ja, dat werkt wel, maar dan moet je de routine wel de juiste naam geven:
Private Sub UserForm_Initialize()

 

[Roma]

Het werkt.
Lekker oliedom van mij.
Bedankt

 

[edmoor]

Sh*t happens