AboutStuart Resnick Expertise I can answer any question relating to MS Excel formulas, or to programming with vba (Visual Basic for Applications) in the Excel environment
Experience As a consultant, I've designed Excel tools since the 90s, working for the Federal Reserve Bank, AT&T, and (currently) Gap Inc.
Question Hi Stuart, I am using the following code to create an InputBox for the list of sheets in my workbook. The user enters the sheet number they wish to open in the InputBox. I added the code to filter out a few of the sheets that users will not be able to work on.
My question is how can I renumber the sheet numbers that are displayed in the InputBox? At the moment the sheets are numbered 2 to 9, 11, 13 with the sheet name but I would like 1 to 10 and the sheet name.
ResultFileSheets = ActiveWorkbook.Sheets.Count
For i = 1 To ResultFileSheets
'Filter unwanted sheets
If i > 1 And i < 10 Or i = 11 Or i = 13 Then
Answer ResultFileSheets = ActiveWorkbook.Sheets.Count
x = 0
For i = 1 To ResultFileSheets
If i > 1 And i < 10 Or i = 11 Or i = 13 Then
x = x + 1
SheetList = SheetList & x & " - " & ActiveWorkbook.Sheets(i).Name & " " & vbCr
End If
Next i
ResultFileSheets = InputBox("Select sheet to copy samples to." & vbCr & vbCr & SheetList)
Sheets(ResultFileSheets).Select
About Excel
This topic answers questions related to Microsoft Excel spreadsheet (or workbook) stand-alone or Mircrosoft Office Excel including Excel 2003, Excel 2007, Office 2000, and Office XP. You can get Excel help on Excel formulas(or functions), Excell macros, charting in Excel, advanced features, and the general use of Excel. This does not provide a general Excel tutorial nor the basics of using a spreadsheet. It provides specific answers to using Microsoft Excel only. If you do not see your Excel question answered in this area then please ask an Excel question here
