Ovaj makro će raditi i ako imaš ChartSheetove. Rezultate stavlja u "Lista" sheet od ćelije A1 pa nadalje.
Sub subSheetovi()
Dim lngSheetova As Long
Dim arrVektor() As Variant
Dim i as long
lngSheetova = ThisWorkbook.Sheets.Count
ReDim arrVektor(1 To lngSheetova, 1 To 2)
For i = 1 To lngSheetova
arrVektor(i, 1) = i
arrVektor(i, 2) = Worksheets(i).Name
Next i
Worksheets("Lista").Range("A1").Resize(lngSheetova, 2).Value = arrVektor
End Sub
Ne zaboravi da formula koju je stavio Neptun radi samo za sheetove koji čine jedan niz. Ako promeniš raspored sheetova može da dođe do problema. Ako nameravaš da menjaš raspored sheetova onda je bolje da koristiš Consolidate dijalog. Više na youtubu:
http://www.youtube.com/watch?v=7OOyvHttkdU