Excel hücrelerinden labele isim vermek

[mahmutozdemir]

SLm User form üzerindeki labellere excel hücrelerinnden isim vermek istiyorum.
39 sutun ve 39 tane label var tek tek
Me.L1.Caption = Sheets("ÖB").[A1] yazmak yerine bir seferde nasıl yazılır.

 

[Huseyinkis]

Ekli kodları incelermisiniz.

Private Sub UserForm_Initialize()
For i = 1 To 39
Controls("L" & i).Caption = Cells(1, i).Value
Next


End Sub

 

[mahmutozdemir]

teşekkür ederim..