I have the following code that i cannot get to work. In escence i
just
want to click on the button and go to the worksheet named in the
combobox. If i take the combobox away and just type a name into a
cell
say A4 it works fine. Obviously i am not referencing the Combobox
properly.

Private Sub CommandButton1_Click()
Worksheets(Range("ComboBox1").Value).Activate


End Sub


With thanks


Bob

Try this

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
End Sub

Mike

"Bob" wrote:

I have the following code that i cannot get to work. In escence i
just
want to click on the button and go to the worksheet named in the
combobox. If i take the combobox away and just type a name into a
cell
say A4 it works fine. Obviously i am not referencing the Combobox
properly.

Private Sub CommandButton1_Click()
Worksheets(Range("ComboBox1").Value).Activate


End Sub


With thanks


Bob