how do i use this code please

[d0wnt0wn]

Private Sub Worksheet_Activate()
Dim i As Integer
ComboBox1.Clear
For i = 1 To ActiveSheet.Scenarios.Count
ComboBox1.AddItem ActiveSheet.Scenarios(i).Name
Next
ComboBox1.Text = "Select Scenario"
End Sub

Private Sub ComboBox1_Click()
On Error Resume Next
ActiveSheet.Scenarios(ComboBox1.Text).Show
End Sub


where do i put the pieces of code and how do i link a combobox to it... sorry for my stupidity

 

[Norie]

Is the combobox being populated with your scenarios?

Are the all listed when you click the arrow?

Is 'bsb 2 ply' the first item on the list?

 

[d0wnt0wn]

no thats the problem they arent being populated... i am at a total loss here

 

[d0wnt0wn]

oh my god!!!! right after i posted that to you i went to my sheet and the combobox was populating.........this is working perfectly now.....thanks everyone for putting up with me!

 

[d0wnt0wn]

uggg list is not populating again..... i close the work book then open again and the list is gone :O(

 

[alibax]

I dont really know what your after, but if you need Combo box to display a list of things here is the way to do it.

ComboBox1.AddItem "Jan"
ComboBox1.AddItem "Feb"
ComboBox1.AddItem "March"
ComboBox1.AddItem "April"
ComboBox1.AddItem "May"
ComboBox1.AddItem "June"

 

[Andrew Poulsom]

uggg list is not populating again..... i close the work book then open again and the list is gone :O(

The Worksheet_Activate event doesn't fire when you open a workbook. It fires when you click the sheet tab while another sheet is active, or when you Page Up or Down to the sheet from another sheet.

You could put some code in the Workbook_Open event procedure (in the ThisWorkbook module) that activates another sheet then activates the sheet containing the ComboBox.

 

[d0wnt0wn]

THANKS ANDREW... fireftyr helped me out with what you exlained there and it works great