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

Thanks

wendy

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