Thanks alot,it worked perfectly.But I don't understand the logic of the
formula.

"Arvi Laanemets" wrote:

Hi

This UDF allows it - copy it into any workbook module.

Public Function TabI(TabIndex As Integer, Optional MyTime As Date) As String
TabI = Sheets(TabIndex).Name
End Function


Now, on first sheet, p.e. into cell A2 enter the formula
=IF(ISERROR(TABI(ROW(),NOW())),"",TABI(ROW())
and copy down. In A2 you see the name of your 2nd sheet, in A3 the name of
3rd one, etc.


--
Arvi Laanemets
( My real mail address: arvil<attarkon.ee )



"TUNGANA KURMA RAJU" wrote in
message ...
I want to create first sheet of workbook as index sheet that contains all
sheet names of that workbook.How?