Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Listing excel sheet names 1
- Thread starter hd65
- Start date
-
1
- Thread starter
- #2
- Thread starter
- #4
Hasit,
Here is how I did it....May not be the best way or
a way to share...
but it works.
Sub OK_Click()
Dim sht()
File = FilenameBox.Value + ".xls"
Workbooks.Open FileName:=File
ActiveWindow.WindowState = xlMinimized
Workbooks(File).Activate
i = 0
For Each wks In Worksheets
ReDim sht(i)
sht(UBound(sht)) = i
i = i + 1
Next wks
a = 0
For Each ws In Worksheets
sht(a) = ws.Name
a = a + 1
Next ws
Workbooks(File).Close SaveChanges:=True
y = 0
For Each Item In sht
ComboBox1.AddItem sht
y = y + 1
Next Item
End Sub
Here is how I did it....May not be the best way or
a way to share...
but it works.
Sub OK_Click()
Dim sht()
File = FilenameBox.Value + ".xls"
Workbooks.Open FileName:=File
ActiveWindow.WindowState = xlMinimized
Workbooks(File).Activate
i = 0
For Each wks In Worksheets
ReDim sht(i)
sht(UBound(sht)) = i
i = i + 1
Next wks
a = 0
For Each ws In Worksheets
sht(a) = ws.Name
a = a + 1
Next ws
Workbooks(File).Close SaveChanges:=True
y = 0
For Each Item In sht
ComboBox1.AddItem sht
y = y + 1
Next Item
End Sub
- Status