i = 3
For Each sh In Activeworkbook.Sheets
If sh.Name < "LISTA" Then
Cells(i,"A").Value = sh.Name
i = i + 1
End If
Next sh

--

HTH

RP
(remove nothere from the email address if mailing direct)


"sal21 sal21" wrote in message
...
I have a wbook with many sheets named from 0000 to 9999 (for example
0000, 4300, 4500, 7200...ecc...).
I would want to insert the name of each sheets into the column A of the
sheet LISTA (start the copy name from A3)present into same wbook.
Note: into wbook are present sheets TEST1, TEST2 and TEST3 for thsi
sheets not is important to insert the name into sheet LISTA.




*** Sent via Developersdex http://www.developersdex.com ***