Excel Worksheets
 

How do I list the worksheets making up a workbook in Excel 2003?

Excel Worksheets
 

Private Sub ListSheets()
'list of sheet names starting at A1
Dim rng As Range
Dim i As Integer
Set rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub


Gord Dibben MS Excel MVP

On Sat, 26 May 2007 08:46:01 -0700, LPM7103
wrote:

How do I list the worksheets making up a workbook in Excel 2003?

Excel Worksheets
 

A shortie

Sub listwbshts()
For i = 1 To Worksheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub

--
Don Guillett
SalesAid Software

"LPM7103" wrote in message
...
How do I list the worksheets making up a workbook in Excel 2003?