How do I identify ComboBoxes based on String in the Name & then Update the list?

Hi Forum,

I really need help trying to identify how I can identify the comboboxes that contain a particular string in order to update their list.

Here is the code that I have used:

Dim CBs as Object
Dim WS as worksheet
set ws = activesheet
for each CBs in ws.oleobjects
if CBs.Name like "*Top*" then
' WHATS NOT WORKING IS THIS CODE
CBS.additem (item1)
End if
Next CBs

If anyone can help that would be amazing.

Hi Forum Guru,

I'm new to the forum and not that familiar to the process. Thank you for your understanding and patience. I'm re-writing the post here with the tags. I hope that my tags were the issue.

Hi Forum,

I really need help trying to identify how I can identify the comboboxes that contain a particular string in their name and when found, I want to update the list of the identified combobox.

Here is the code that I have used:

Please Login or Register  to view this content.

If anyone can help that would be amazing.

OMG!!! Thank you ever so much Forum Guru. I have been suffering trying to figure this out.
SOLVED!!!

I'll start my next thread issue.