Thread: DROP DOWN LIST
View Single Post
  #3  
Old June 4th, 2010, 10:30 AM posted to microsoft.public.excel.misc
Jackpot
external usenet poster
 
Posts: 28
Default DROP DOWN LIST

Set the security level to low/medium in (Tools|Macro|Security). From workbook
press Alt+F11 to launch VBE (Visual Basic Editor). From the left treeview
search for the workbook name and click on + to expand it. Within that you
should see the following

VBAProject(Your_Filename)
Microsoft Excel Objects
Sheet1(Sheet1)
Sheet2(Sheet2)
Sheet3(Sheet3)
This Workbook

Double click 'This WorkBook' and paste the below code to the right code pane.

Private Sub Workbook_Open()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Me.Sheets
If ws.Index 1 Then ws.Visible = xlSheetHidden
UserForm1.ComboBox1.AddItem ws.Name
Next
Application.ScreenUpdating = True
UserForm1.Show
End Sub


Right click on the Workbook icon and add a user form...and place a combobox
and commandbutton..and right click 'Userform' View code and paste the below
code...Save and re-open the workbook

Private Sub CommandButton1_Click()
If Me.ComboBox1.Text "" Then
Sheets(Me.ComboBox1.Text).Visible = True
Sheets(Me.ComboBox1.Text).Activate
Unload Me
Else
MsgBox "Please select a sheet name"
End If
End Sub



"Dave" wrote:

No. This does not have the information Reza. I want to create a drop down
list in its own window when the sheet opens not one in a cell.

Thanks

"reza" wrote:

Dave...

try to open this link...so many information about creating drop down list
http://www.contextures.com/xlDataVal01.html

reza

"Dave" wrote:

Hi

I would like to create a drop down list if names that opens when the
spreadsheet opens so people can pick theyre own individual sheets.

How can this be done?

Thanks