How do you list all the workbooks you have opened and the sheets in each workbook?
 

How do you display a list of open workbooks and each sheet name in that
workbook??

Thanks

wendy

How do you list all the workbooks you have opened and the sheets in each workbook?
 

Wendy,

Try this

Dim i As Long
Dim wb As Workbook
Dim ws As Worksheet

i = 1
For Each wb In Workbooks
ActiveSheet.Cells(i, 1) = wb.Name
i = i + 1
For Each ws In wb.Worksheets
ActiveSheet.Cells(i, 2) = ws.Name
i = i + 1
Next ws
Next wb


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Wendy" wrote in message
...
How do you display a list of open workbooks and each sheet name in that
workbook??

Thanks

wendy