Combo box
 

Hi,

How can I create a combo box where I can select an item from the
combobox and it will jump to the desired worksheet?

Thanks

lc

Combo box
 

Option Base 1

Private Sub Combobox1_Click()
Dim v as Variant
v = Array("C100","A20","D40","F50")
if combobox1.listindex < -1 then
Range(v(combobox.ListIndex + 1)).Select
end if
End Sub



Private Sub Combobox2_Click()
Dim v as Variant
v = Array("Sheet3","Sheet4","Sheet5","Sheet10")
if combobox1.listindex < -1 then
Worksheets(v(combobox.ListIndex + 1)).Activate
end if
End Sub

--
Regards,
Tom Ogilvy


"lc" wrote in message
oups.com...
Hi,

How can I create a combo box where I can select an item from the
combobox and it will jump to the desired worksheet?

Thanks

lc