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 A1 enter:

=sheetname(row()) and copy down.
--
Gary''s Student - gsnu200790


"RW" wrote:

I am many tabs in one file and I want to know how many tabs I have and the
name of each tab. How can I do that. I know by right click on the left scroll
bar I can see some, is there a way I can see all the name at one time