List Name Range show

[delta]

worksheet "Baze" range "itemname" contian fruit name is
Apple
Banana
Blackberry
Blackcurrant
Blueberry
Chico fruit
Cherry

userform contain 10 combo box name is TB1 To TB10

i need show itemname in 10 combo box by for loop by vba

 

[chirayu]

sample file please as I'm unsure how you named range is populated, is it static values i.e. "Apple, Banana" etc or does it refer to a range

 

[delta]

i upload sample file

 

[chirayu]

Private Sub UserForm_Initialize()

With Me

.TB1.List = Range("itemname").Value
.TB2.List = Range("itemname").Value
.TB3.List = Range("itemname").Value
.TB4.List = Range("itemname").Value
.TB5.List = Range("itemname").Value
.TB6.List = Range("itemname").Value
.TB7.List = Range("itemname").Value
.TB8.List = Range("itemname").Value
.TB9.List = Range("itemname").Value
.TB10.List = Range("itemname").Value

End With


End Sub

 

[delta]

SIR
i know this solution but
I do this by use for loop