Dynamic combobox from sheet names

[BarefootPaul]

How do I setup a combobox to be filled with the names of every sheet in a workbook? And if those sheet names are dates (18-Aug-2011) how do I make sure they have that format in the combobox?

I currently use a macro to make a list of all sheet names, set that range as a name and then use that name as the rowsource. It requires me to update the list of sheet names and the combobox lists dates as a 5 digit code instead of as a date that a user would understand.

 

[Kenneth Hobson]

Private Sub UserForm_Initialize()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
    ComboBox1.AddItem ws.Name
  Next ws
End Sub

 

[BarefootPaul]

Sweet. I was on the right track with what I had tried, but since I'm kind of making it up as I go...

Thanks