list sheets available in listbox

[drewdaman]

hello,

i would like to list the available sheets in a list box. how can i do this?

also, i would like to give the user the option to create a new sheet from a form.. any ideas?

thanks!

 

[drewdaman]

sorry.. i said list box.. i meant combo box

 

[Zathras]

This is quite primative, but you can use something like this (on the UserForm1 code page - drop a combo box and a command button first.):

Private Sub CommandButton1_Click()
  Sheets.Add
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
  For i = 1 To Sheets.Count
    ComboBox1.AddItem Sheets.Item(i).Name
  Next i
  ComboBox1.ListIndex = 0
End Sub

 

[drewdaman]

well.. if it does waht i think it does, it is exactly what i need. thank you very much. i will try it out and get back to you tomorrow.