Hello,

I apologize I got in a hurry and did not include the code
here it is:

Sub sheets_list()
'prints sheet names to worksheet
r = ActiveCell.Row
s = ActiveCell.Column
ws = Sheets.Count
If ws 5 Then
For a = ws To 5 Step -1
Cells(r + a, s).Value = Sheets(a + 1).Name
Next a
End If
End Sub

Thank you for your help,
James Cooper



James Cooper wrote:
Hello,

The following code gives me this error "Run-time error '9': Subscript out of
range.

What I would like to do is put 25 of the 30 worksheet names from one
workbook into the same workbook on a worksheet but this is my problem I do
not want worksheet 1-5 included.

How can the following code be modified to put 25 of the 30 worksheet names
on one worksheet in the same workbook.

Thank you for you help,
James Cooper