Right click on your combo-box

- select controlpanel - input range is A1:A50 - cell link = B1 -
drop down lines eg 6


Private Sub ComboBox3_Change()

Dim choise As Long
choise= Sheet(input).Range("B1")

If choise = 25 then
...
End if

End Su

--
Zur
-----------------------------------------------------------------------
Zurn's Profile: http://www.excelforum.com/member.php...fo&userid=1464
View this thread: http://www.excelforum.com/showthread.php?threadid=26811