Populate sheet names in a listbox

[vicky]

when i pick a workbook from a file dialog box (auomatically) i need
to display all the sheets(name) present in that workbook in a listbox
from which i have to select and do some operations .... hope this is
possible in vba ....

 

[joel]

The code below assumes you have a listbox on the worksheet that wa
added from the Toolbars - Forms

Sub test()

fileToOpen = Application _
.GetOpenFilename("Excel Files (*.xls), *.xls")
If fileToOpen = False Then
MsgBox ("Cannot Open file - Exiting Macro")
Exit Sub
End If
For Each sht In Sheets
ActiveSheet.ListBoxes("List Box 2").AddItem sht.Name
Next sht


End Su

 

[Phil Hibbs]

Where is the listbox?

Phil Hibbs.

 

[Dave Peterson]

Is this for workbooks that are already open or for workbooks that are closed?

If they're already open, you could loop through each of the workbooks.

Myrna Larson and Bill Manville's compare program does this:
http://www.cpearson.com/excel/whatsnew.htm
look for compare.xla

If it's for processing closed workbooks, I'd have to loop through all the
workbooks in the folder (and subfolder???) and then open each--then loop through
the worksheets in each workbook, then close the workbook.