Dim iStart as long
Dim iEnd As long
Dim i As Long
Dim StartCell as Range

iStart = 5 '<===== change to suit
iEnd = 9 '<===== change to suit
Set StarCell = Range("A46") '<===== change to suit

For i = iStart to iEnd
StarCell.Offset(i-1,0).Value = Worksheets(i).Name
Next i


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"J.W. Aldridge" wrote in message
ps.com...
I need a code that will place the list of worksheet names in a
workbook.
However I have two exceptions....

(1) I need the names to be listed starting at a specific cell. (a46)
(2) I need to dictate the range of sheet names reported.
(start name list based on 5th sheet in workbook ending at "sheet y")


Thanx.