This example uses a workbook name from one combobox [which is updated
via Sub ResetBookCombo()] called from the Form_Initialize) to update
another combobox with a list of the sheets it contains. Hope this
helps.

'--------------------------------------------------
Private Sub BookCombo_Change()
FindInBook = FindForm.BookCombo.Value
ReSetSheetCombo
End Sub
'--------------------------------------------------
Sub ReSetSheetCombo()
FindForm.SheetCombo.Clear
For Each ws In Workbooks(FindInBook).Worksheets
FindForm.SheetCombo.AddItem (ws.Name)
Next
End Sub
'----------------------------------------------------


---
Message posted from http://www.ExcelForum.com/