this should work for you


Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "date1" 'change to first date
ComboBox2.RowSource = "=Sheet1!C5:C15" ' change to source of new data
Case "date2" 'change to second date
ComboBox2.RowSource = "=Sheet1!E5:E15" ' change to source of new data
Case "date3" 'change to 3rd date
ComboBox2.RowSource = "=Sheet1!G5:G15" ' change to source of new data
End Select
End Sub


--
dok112
------------------------------------------------------------------------
dok112's Profile: http://www.excelforum.com/member.php...o&userid=10581
View this thread: http://www.excelforum.com/showthread...hreadid=513784