Adding same items to combo boxes on multiple sheets

Thanks in advance for any help.

In this workbook I have several(about 25) worksheets, each of which has 3 combo boxes on them, which I want to use to navigate between the different worksheets. So the items in each combobox will be the same on each sheet.

What I want to do is run some module based code that will propulate the active sheets combo box, the comboboxes are named the same on each sheet.

The code I was thinking about would be something like:


SheetName.cboOne.Additem "Item1"

Where SheetName woud change depending upon the active sheet.

The problem I have is assigning the sheet name to some sort of variable which would achieve this

I'm using Excel 2003

I have also posted this qustion here.
http://www.vbaexpress.com/forum/showthread.php?t=37276

You can loop through the worksheets and fill the comboboxes using ListFillRange..
You'll need a named range on the spreadsheet witht the requisite items for the comboboxes (in my example below i usea named range called ItemList

Sub test()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets
    ws.OLEObjects("cbo1").ListFillRange = "ItemList"
Next

End Sub