If you want to populate a range of cell in a work sheet with the names try the following code :
Sub ListSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
Range("A1".Offset(x, 0) = ws.Name
x = x + 1
Next
End Sub
The above will populate the active sheet with a list of sheets in the active workbook, starting at A1. That of course can be changed to suit. The code could be changed to populate a list/combo box with teh data.
Pssssssssssssst... you forgot to "issue a STAR".
Actually it appears you're not yet aware of this "accepted practice" at Tek-Tips. It's the "proper" means of showing recognition and appreciation for the contributor's help.
Issuing a STAR involves simply clicking on the "Click here to mark this post as a helpful or expert post!" - located in the lower-left-corner of the contributor's posting.
The STARS also serve as "beacons" for other "browsers" who are "on the lookout" for useful tips and solutions.
PLEASE do NOT issue me a STAR for this "reminder". I want to earn stars in the normal way. Thanks.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.