First enter this UDF:

Function sheetname(i As Integer) As String
sheetname = Sheets(i).Name
End Function

then in the worksheet enter:

=sheetname(ROWS($A$1:$A1)) and copy down.
--
Gary''s Student - gsnu200771