Reading tabs name
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, 7 Oct 2006 04:59:01 -0700, smaruzzi
wrote:
Is there a sinple way - or a function - to go thru the list of tabs and
extract their names?
Thanks, Stefano
|