How do you write a macro that adds ALL worksheets in a combobox?

[kjy1989]

Hi All,

I have a combobox in a userform, when I load the userform I want the combobox to show ALL the sheets in the workbook. something like:

Private Sub UserForm_Initialize()

For Each Worksheet In Workbook

with combobox_allsheet
.additem sheet1
end with

next Worksheet

End Sub

Then after that, all the sheets will be in combobox_allsheet

how do i do this?