schrijf wijze verkorten

[Timmy]

Hallo experts

Ik heb op een userform het volgende staan een combox
waar een lijst uit verschijnt van meer of 100 namen


Private Sub UserForm_Initialize()

With CB1

.AddItem Worksheets("orders+omschrijving").Range("C3")
.AddItem Worksheets("orders+omschrijving").Range("C4")
.AddItem Worksheets("orders+omschrijving").Range("C5")

tot.......


.AddItem Worksheets("orders+omschrijving").Range("C100")



End With


End sub


kan ik dit soms korter schrijven ???
door een bereik ,dat ik niet telkens hoef te knippen en te plakken en het getalletje te veranderen


groeten

Timmy

 

[Bartuls]

Je kunt de tekst vervangen door een variabele:

Dim strWs as String

strWs = "orders+omschrijving"
...
...
.AddItem Worksheets(strWs).Range("C3")
...
...