First enter this UDF:

Function sheetname(i As Integer) As String
sheetname = ""
If i Sheets.Count Then Exit Function
sheetname = Sheets(i).Name
End Function


Then, in an unused column, enter:
=sheetname(ROW()) and copy down

--
Gary''s Student - gsnu2007g


"Steve" wrote:

Hi. Is it possible to populate a data validation list with the sheet
names in a workbook? And as a sheet is added or sheet name changed,
the list automatically updates?