you can get rid of the i=i+1 line, it was leftover from something else

--


Gary


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
this should work

Sub test()

Dim SH As Worksheet
For Each SH In Worksheets
i = i + 1
ComboBox1.AddItem "test" & SH.Name
Next
End Sub


--


Gary


"David Pick" wrote in message
oups.com...
I am trying to a sheets to a combo box without knowing the number of
sheets. I have tried this code:

For Each Sheet in ThisWorkBook
cmbComboBox1.AddItem Sheet.Name
Next

Any Ideas. Thanks
-David