How do I list the worksheets making up a workbook in Excel 2003?
G Gord Dibben May 26, 2007 #2 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
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
D Don Guillett May 26, 2007 #3 A shortie Sub listwbshts() For i = 1 To Worksheets.Count Cells(i, 1) = Sheets(i).Name Next i End Sub
