FWIW,,,
This code is producing the Code (Hidden) Name of the Sheet, Not the
Sheetname the user has access to by renaming with the short-cut menu.
Jim

"Gary''s Student" wrote:

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