Dim i as Long, j as Long, sh as Worksheet
Dim first as Long, last as Long

first = 5
last = 10
i = 0
j = 45
for each sh in Workbook.Worksheets
i = i + 1
if i = first and i <= last then
j = j + 1
Cells(j,"A").Value = sh.name
end if
Next

--
Regards,
Tom Ogilvy


"J.W. Aldridge" wrote:

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.