insert the name of sheets inti a column A
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 *** |
insert the name of sheets inti a column A
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 *** |
All times are GMT +1. The time now is 12:43 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com