Dynamically link to control via module

[DelScorcho]

Hello,

I am trying to code to a combobox on a worksheet (Excel 2003) from a module using variables.

The following code gets me part of the way:

Dim wbHold As Workbook
Set wbHold = ThisWorkbook


wbHold.Worksheets("Worksheet1").combobox1.AddItem "test"

However I need to replace the name "combobox1" with a variable.




Thanks

[dominicb]

Good morning DelScorcho

However I need to replace the name "combobox1" with a variable.

How about :

a = "ComboBox1"
wbHold.Worksheets("Worksheet1").Controls(a).AddItem "test"

HTH

DominicB

[DelScorcho]

Good morning DelScorcho


How about :

a = "ComboBox1"
wbHold.Worksheets("Worksheet1").Controls(a).AddItem "test"

HTH

DominicB

Thanks, but I have tried that and I get the error: "Object doesn't support this property or method"

[dominicb]

Hi DelScorcho

Thanks, but I have tried that and I get the error: "Object doesn't support this property or method"

Yes. Course you did. That's 'cos I gave you the wrong code - I didn't read your post properly and thought you were using a userform. Fortunately, I know the right answer . Try this :

a = "ComboBox1"
Sheets("Worksheet1").OLEObjects(a).Object.AddItem "test"

HTH

DominicB