'This loads the ComboBox list
Private Sub ComboBox1_Click()
Dim Sh As Worksheet
Dim sVal as String
With ComboBox1
sVal = .Text
Clear
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name < "Inputs" Then
AddItem Sh.Name
End If
Next
.Value = sVal
Worksheets(.Value).Activate
End With
End Sub

The click event is appropriate



"ExcelMonkey " wrote in message
...
So that works fine Tom. Now here is my next question. Suppose I now
want the result of the combo box to trigger another routine that
selects that sheet that is chosen. That is I use the routine below to
load sheet names into a combo box. I now want this to trigger another
routine that selects the sheet.

I am not sure where to put this routine. I know that it has to go in
the sheet module. Do I pass the sheet names into an array and then
pass this array to another routine?

And lastly, I do not want this to run continuously. That is I want to
be able to pick a sheet name with the combo box, have it go to that
sheet ONLY after the name has been chosen in the box. I guess I have
to use the right "event" to make sure that the routine does not run
continuously. Would this be the Change event?

How would you do this?

Thanks



'This loads the ComboBox list
Private Sub ComboBox1_Click()
Dim Sh As Worksheet
Dim sVal As String

With ComboBox1
sVal = .Text
Clear
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name < "Inputs" Then
AddItem Sh.Name
End If
Next
Value = sVal
End With

End Sub


---
Message posted from http://www.ExcelForum.com/