<code>
Ex:
Dim xlApp As Excel.Application ' Excel Application Object
Dim xlBook As Excel.Workbook ' Excel Workbook Object

' Create the Excel App Object
Set xlApp = CreateObject("Excel.Application")

' Create the Excel Workbook Object.
Set xlBook = xlApp.Workbooks.Open(xlFileName)

'???
Debug.Print xlBook.Worksheets.Count
Hur får jag fram namnet på Worksheets typ Blad1, 2, 3 osv...
</code>

Jag tror att Excel.Workbook har en Sheets collection. Där kan du läsa namnet på det aktiva bladet eller andra blad.

Hittar inget som tar fram namnet på sheets?

eh?

dim ws as worksheet

for each ws in activeworkbook.worksheets
debug.print ws.name
next

Tusen tack!

Varför använda activeworkbook?

Dim xlApp As Excel.Application  ' Excel Application Object
Dim xlBook As Excel.Workbook    ' Excel Workbook Object
Dim xlWorksheet  As Excel.Worksheet

   ' Create the Excel App Object
   Set xlApp = CreateObject("Excel.Application")
   
   ' Create the Excel Workbook Object.
    Set xlBook = xlApp.Workbooks.Open(xlFileName)


    For Each xlWorksheet in xlBook.Worksheets
        Debug.Print xlWorksheet.name
    Next

Eftersom jag skrev koden på 20 sekunder...