Mike and David supplied some great suggestions for you. In addition, you may
also want to try this:

Sub ListSheets()
Dim rng1 As Range
Dim I As Integer
Dim sh As Worksheet
Dim blnReplace As Boolean
Set rng1 = Range("A3")
For Each Sheet In ActiveWorkbook.Sheets
blnReplace = False
rng1.Offset(I, 0).Value = Sheet.Name
I = I + 1
Next Sheet
End Sub

Write back if you have any questions...

--
RyGuy


"crawdood" wrote:

I have a workbook with more than 50 worksheets; iwould like a cell in each
worksheet to automatically dispaly the tab name of that worksheet - is this
possible?