Hi...
Need help with a combobox!
For some reason I'm not able to select the dropdown list on the sheet when I open the workbook...
Any ideas?

The code is:


Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "January"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A7")
Case "February"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A8")
Case "March"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A9")
Case "April"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A10")
Case "May"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A11")
Case "June"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A12")
Case "July"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A13")
Case "August"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A14")
Case "September"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A15")
Case "October"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A16")
Case "November"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A17")
Case "December"
Worksheets("TRENDS INPUT DATA_12").Range("A4") = Worksheets("TRENDS INPUT DATA_12").Range("A18")
End Select
End Sub

Private Sub Worksheet_Activate()
ComboBox1.Clear
ComboBox1.AddItem "January"
ComboBox1.AddItem "February"
ComboBox1.AddItem "March"
ComboBox1.AddItem "April"
ComboBox1.AddItem "June"
ComboBox1.AddItem "July"
ComboBox1.AddItem "August"
ComboBox1.AddItem "September"
ComboBox1.AddItem "October"
ComboBox1.AddItem "November"
ComboBox1.AddItem "December"
'ComboBox1.Text = ComboBox1.List(0)
End Sub