insert name of sheets into a column A

[sal21]

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.

 

[Tom Ogilvy]

Dim sh as Worksheet, rw as Long
rw = 2
for each sh in Activeworkbook.Worksheets
if lcase(left(sh.name,4)) <> "test" and lcase(left(sh.name,4)) <> "list"
then
rw = rw + 1
worksheets("LISTA").Value = "'" & sh.name
end if
Next