Kris :This is useful. What if I need to get the list of all sheets of a workbook in another workbook?

Using code above: (Thanks for it – very useful)

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer
Dim wb1 As String ‘workbook you work from
Dim wb2 As String ‘workbook you want to get list of sheets from

wb1 = ActiveWorkbook.Name
wb2 = “YourBookName.xls” ‘ <<< Change That

x = 1

Workbooks(wb1).Sheets("Sheet1").Range("A:A").Clear
Workbooks(wb2).Activate

For Each ws In Worksheets

Workbooks(wb1).Sheets("Sheet1").Cells(x, 1) = ws.Name
x = x + 1

Next ws

Workbooks(wb1).Activate
Sheets("Sheet1").Select

End Sub

Arpad